#!/usr/bin/perl
$|++;

my $secs = shift;
die("Usage: $0 <secs>\n") unless (defined $secs) && ($secs>=0);
while($secs>0) {
	printf("\r% 4d", $secs);
	sleep 1;
	--$secs;
}
print "Done          \n";