Help for this page
package Database; use strict; ... } 1;
#!/usr/bin/perl -w use strict; ... my $user = $dbh->selectrow_array("select NAME from USER where ID=?", u +ndef, $userid); print "name of the user: $user!";