Select Code to Download

$| = 1;
use Time::HiRes qw(sleep);  # allows sleep in fractions of seconds
...
    }
    print "Bye.\n";
}