Select Code to Download

#!/usr/bin/perl -w

...
my @uptime = split ' ', `uptime`;

print "Server rebooted in last 24 hours" if ( $uptime[2] < 1 );

 print "Server rebooted in last 24 hours"