Select Code to Download

#!/usr/bin/perl -wT

use strict;
...
&url if $pword_entd =~ /[^0-9a-z]/;
&url if $pword_entd eq "";
$good_pass = $pword_entd;

open (USERFILE, $pword_file) || die "File cannot open";
while (<USERFILE>)
...
&url;
#&url prints a header and checks to see if $itis eq "good"
#print one message if it is another if it isn't