Select Code to Download

my @old_ARGV = @ARGV;
my $count;
$count++ while <>;
...
@ARGV = @old_ARGV;

print while <>;