Select Code to Download

package Now;
require Tie::Scalar;
...
print "The time is $now\n";
sleep 3;
print "The time is $now\n";