#! /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";