Select Code to Download

#!/usr/bin/env perl

...
sub print_timestamp {
    print shift, ' at: ', scalar(localtime), "\n";
}

$ pm_time_countdown.pl
Started at: Sat Nov  2 18:02:36 2013
...
Resumed at: Sat Nov  2 18:03:40 2013
00:00:00
Finished at: Sat Nov  2 18:03:50 2013

$ pm_time_countdown.pl 3 2
Started at: Sat Nov  2 18:30:23 2013
...
Resumed at: Sat Nov  2 18:30:26 2013
00:00:00
Finished at: Sat Nov  2 18:30:27 2013

$ pm_time_countdown.pl 86337 600
Started at: Sat Nov  2 17:44:22 2013
...
Paused  at: Sat Nov  2 17:54:23 2013
Continue ([Y]/n): n
Finished at: Sat Nov  2 18:02:00 2013