Select Code to Download

   1. for (;;) {
   2.    undef $!;
...
   6.    }
   7.    # ...
   8. }

#!/usr/bin/perl -w
use strict;
...
system('pause');
while ($line) {
   #Rest of script...