Select Code to Download

use strict;
use warnings;

my @DATA=<ORIGFILE>;

while (my $line=<ORIGFILE>) { # ...

open my $in, '<', "whatever" or die "can't open `whatever': $!\n";
open my $out, '>', "whatever" or die "can't open `whatever': $!\n";