#!./perl

require POSIX; import POSIX;

print &getpid, "\n";

@uname = &uname;
print "@uname\n";