Select Code to Download

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!";