sub mysleep {
    my $seconds = shift;
    while ($seconds) {
        print $seconds--, "\n";
        sleep 1;
    }
}
mysleep(5);