Select Code to Download

open(FILE, $query->param('name')) or die "Can't open file";

open(FILE, $name) or die "Can't open $name";
   $pass = <FILE>;
...

if ($query->param('pass') eq $pass) {
    ...etc...