#!/usr/bin/perl

$UPTIME = `uptime`;
$UPTIME =~ s/.*averages: (\S+),?.*/$1/g;
$TARGET=shift;
print $UPTIME;

if ($UPTIME > $TARGET)
{
        exit 1;
}
else
{
        exit 0;
}