sub countdown {
    local $| = 1;
    my $int = $_[0];
    while ($int > 0) {
        print "$int ... ";
        sleep 1;
        $int--;
    }
    print "\n";
}