Select Code to Download

#!/usr/bin/perl -w

...
sleep(10);
print "Done, ";
print $interrupted ? "interrupted" : "without interruptions", ".\n";