gambi boot perl clandestine

#22:20  up 10:38, 2 users, load averages: 0,62 0,77 1,04
# gambi em perl para o clandestine
@cmd=`uptime`;
foreach(@cmd)
{
 if( $_ =~ /\sup (.*?),/ )
 {
  print "result cmd: $_";
  print "parse:  $1 \n";
  $hora=$1;
  if($hora =~ /(.*?):/)
  {
   if($1 < 3)
   {
    print "voce acabou de dar boot";
   }
  }
 }

}