#!/usr/bin/perl
use warnings;
use strict;

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

sub main {
    print "something happens in ";
    countdown (3);
}

&main;