Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "timeup is ", defined $dayup ? " $dayup days and " : '', "$t
+imeup hours\n";
}

my $uptime = '  9:12pm  up  2:13,  5 users,  load average: 0.84, 0.62,
+ 1.03';
my ($keep) = ( $uptime =~ /up\s+(.+),\s+\d+\s+users/);