Select Code to Download

#! perl -w

...
$Console->Flush();

exit(0);

#! perl -w
use Term::ReadKey;
...
print "Stopped program\n";

exit(0);