open (PASS, "+<$pass") or warn "was unable to open FH $!";
    for (;<PASS>;) {
        $gpgpass = $_;
    }