Select Code to Download

print "file1 ="; 
$file1=<stdin>;
...
while(defined($line=<>)){
 $line =~ s/$remove/$replace/g;
 print "$line"; }

main::(./dynamic_file.pl:22):   print "file1 =";
  DB<1> n
...
  DB<1> p @ARGV
file1
file2