#!/usr/bin/perl -w

use strict;

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

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

##</code><code>##

 print "Server rebooted in last 24 hours"