use strict; use DBI; use Getopt::Std; my $dsn = "DBI:mysql:$database:localhost"; my $username = 'username'; my $passwd = unpack("u", $enc_passwd); ######### No User servicable parts below ############