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

chomp $pass;

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