Select Code to Download

my @lines=<File>;

while (<FILE>){
 my $line=$_;
 }