use strict;
use warnings;

$|++; #autoflush output

quit();

sub quit {
	my $sleep = 3;
	while ( $sleep ){
		print "\rQuitting in $sleep sec.";
		sleep 1;
		$sleep--;
	}
	exit;
}