Select Code to Download

use strict;
use warnings;

...
    print "Sleep was interrupted, slept $slept secs\n";
}