Select Code to Download

#!/usr/bin/perl -w

...
open( I, $ARGV[0] ) or die $!;

while(<I>) {print}

#!/usr/bin/perl -w

...
open( O, '>', $ARGV[0] ) or die $!;

print O "this is a test\n";