Select Code to Download

open(FILE, "myfile.txt")
$file = *FILE

print $file "Hello File";
close $file;

#!/usr/bin/perl

my @filehandles;
...
    close $file;
    $count++;
}