package RunKiller;

sub new {
   my $self = shift;
   my $obj = { timer => time(), length => shift };

   bless $obj, $self;
   return $self;
}

sub check {
   my $self = shift;
   die 'Ran too long!' if time-($self->{timer}) >= $self->{length};
}

1;