my $a=`uptime`;
my @y=split(/,/,$a);
print $y[3];