Select Code to Download

open(FILE1, $ARGV[0]) || die "Error: $!\n";
@lines = <FILE1>;

@lines = $_;

$foo = $_;

$foo .= $_;

$foo = $foo . $_;

push @lines, $_;