You can try a timeout through eval.

tmharish ++

Here is the exact code to timeout for 25 minutes.

use strict;
use warnings;
use utf8;

eval {
   local %SIG;
   $SIG{ALRM}=   sub{ die "timeout reached, after 25 minutes!\n"; };
   alarm 25*60; # 25 minutes.
    while(1)
    {
        sleep(1);
        print "Hello Perl\n";
    }
   alarm 0;
};

alarm 0;

if($@) 
{ 
    print "Error: $@\n";
}
exit(0);
[download]

See the warning about using sleep and alarm being used in tandem.

--MidLifeXis

MidLifeXis ++

Thanks for the valuable info.

#! /usr/bin/perl
use 5.016;
# 1020073
# Timeout Timer w/o eval or SIG

print "How many minutes? ";
my $min = <>;
chomp $min;
my $time_remaining = ($min * 60);

sub countdown {
  my $t_left = shift;
  while ($t_left > 0) {
    sleep 1;
    --$t_left;
    say "Seconds remaining: $t_left";  #elaborate this sub if you want
+ output in min:sec format
  }
}

say countdown($time_remaining);

print "\a" x 5 . "\t\t $time_remaining countdown is finished\n";
[download]

But see also On asking for help & How do I post a question effectively? ... and start showing some effort!