Help for this page
my $user_name = $cgi_object->param('user_name'} || ''; my $passwd = $cgi_object->param('passwd') || ''; unless ($user_name && $passwd) { # handle cgi param error }
eval { $sth = $dbh->prepare("select pass from users where user=?"); ... if ($@) { # handle database error }
www.com | www.net | www.org
No recent polls found