#!/usr/bin/perl

use DBI;

($pass = shift) || die Useage();
print "Enter Listname:";
my $listname = <STDIN>;

$db = "nMail";
$sock = "/tmp/mysql.sock";
$user = "nmail";
$dsn = "DBI:mysql:$db;mysql_socket=$sock";

$dbh = DBI->connect($dsn,$user,$pass);
        $sth = $dbh->prepare("INSERT INTO nMail.ML_Lists (Mname) VALUES ('$listname')");
        $sth->execute() || die "Error: Could not create mailing list $listname\n";
        $sth->finish();
$dbh->disconnect();

sub Useage
{
return "
Error Invalid Arguments,

Useage:
$0 <password>
";
}

##</code><code>##

bash-2.03$ ./add_list.pl <*password-cut*>
Enter Listname:Test
ld.so.1: /usr/bin/perl: fatal: relocation error: file /usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris/auto/DBD/mysql/mysql.so: symbol mysql_init: referenced symbol not found
Killed
bash-2.03$