Select Code to Download

#!/usr/bin/perl
use warnings;
...
    $tout->see("end");
}
__END__

#!/usr/bin/perl
use warnings;
...
 warn "\tuh oh warning $count\n"; #send something to stderr
 sleep 1;
}