Select Code to Download

$file = "pp.txt";
open (FH ,$file) || die ("could not openfile");
...
    print;
}
close (FH);