Select Code to Download

open(FH, "< $filename") or die ("Can't read file: $!\n");
@the_file = <FH>;

use IO::File;

$fh = IO::File->new($filename, "r+")
     or die "Couldn't open $filename for read & write: $!\n";