$ perl 1140667.pl
Exiting
Not done yet
$