#!/usr/bin/perl
# your code goes here
use warnings;
use strict;
my $input = "2a";#$ARGV[0];
$|++;
my $seconds = 0;
# input could be 1, 1s , 1m or 1h
if ($input =~ /([0-9]+)([smh]?)/i) {
$seconds = $1;
my $multiplier = 1;
if ($unit eq "h") {
$multiplier = 3600;
} elsif ($unit eq "m") {
$multiplier = 60;
}
$seconds *= $multiplier;
} else {
}
#while ($seconds) {
# print $seconds;
# sleep 1;
# my $len = length($seconds);
# print "\r", " " x $len, "\r"; $seconds--;
#}
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKdXNlIHdhcm5pbmdzOwp1c2Ugc3RyaWN0OwoKbXkgJGlucHV0ID0gIjJhIjsjJEFSR1ZbMF07IAokfCsrOwoKbXkgJHNlY29uZHMgPSAwOyAKIyBpbnB1dCBjb3VsZCBiZSAxLCAxcyAsIDFtIG9yIDFoCmlmICgkaW5wdXQgPX4gLyhbMC05XSspKFtzbWhdPykvaSkgeyAKCSRzZWNvbmRzID0gJDE7CiAgICBteSAkdW5pdCA9IGxjKCQyKTsgCiAgICBteSAkbXVsdGlwbGllciA9IDE7CiAgICBpZiAoJHVuaXQgZXEgImgiKSB7CiAgICAgICAgJG11bHRpcGxpZXIgPSAzNjAwOwogICAgfSBlbHNpZiAoJHVuaXQgZXEgIm0iKSB7CiAgICAgICAgJG11bHRpcGxpZXIgPSA2MDsKICAgIH0KICAgICRzZWNvbmRzICo9ICRtdWx0aXBsaWVyOwp9IGVsc2UgewogICAgZGllOwp9IApwcmludCAkc2Vjb25kczsKCiN3aGlsZSAoJHNlY29uZHMpIHsgCiMgICAgcHJpbnQgJHNlY29uZHM7IAojICAgIHNsZWVwIDE7IAojICAgIG15ICRsZW4gPSBsZW5ndGgoJHNlY29uZHMpOyAKIyAgICBwcmludCAiXHIiLCAiICIgeCAkbGVuLCAiXHIiOyAkc2Vjb25kcy0tOwojfQ==