use POSIX;
my ($sysname, $nodename, $release,$version, $machine)= POSIX::uname();