Select Code to Download

#!/usr/bin/perl -w
use strict;
...
      print $ofh $line;
   }
}

#!/usr/bin/perl -w
use strict;
...
      print;
   }
}