Select Code to Download

foreach my $line (<FILE>) {
  # etc
}
my @lines = sort <FILE>;
print <FILE>;

open(FILE, "< $file") or die "Cannot read $file: $!";

open(FILE, "cat $file |") or die "Cannot read $file: $!";