Select Code to Download

open(FILE, "<file.txt");
my @thing = <FILE>;
...
        push @crap,$_;
    }
}

open(FILE, "<file.txt");
while(local $_ = <FILE>) {
...
    }
}
close FILE;

open(FILE,"<file.txt");
my $template = '';
...
    $template .= $line;
}
close FILE;

my $template = '';
open(FILE, "<file.txt") && while($template .= <FILE>) {};
close FILE;
die "bad stuff happened" unless length $template;