Help for this page

Select Code to Download


  1. or download this
    my $dbpass = $sth->fetch;
($UIDholder, $LNholder) = @{$dbpass};
...
  2. or download this
    my $dbpass = $sth->fetch
   or die("Bad data. XXX not found\n");
...
   and die("Bad data. Multiple XXX in table YYY\n");
($UIDholder, $LNholder) = @{$dbpass};
...