System Functions Perl

use Shell;
$uptime = uptime();
print $uptime;