Re: FW: "authentication" sub in perl