#!/usr/local/bin/perl -w
use strict;

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

print "Server rebooted in last 24 hours.\n" if ( $uptime[2] > 1 );