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

##</code><code>##

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

chomp $pass;

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