use POSIX qw(:sys_wait_h EINTR);


($sysname, $nodename, $release, $version, $machine)
        = POSIX::uname();
printf "$sysname\n";
printf "$nodename\n";
printf "$release\n";
printf "$version\n";
printf "$machine\n";
$nodename =~ s/\..*$//; # strip domain part, if any
printf "$nodename\n";