Bad argument while running the program

------_=_NextPart_001_01C636AE.592A614F
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable


Hi,

I have written a PERL script to connect to TERADATA. While executing the
script, it throws an error as below mentioned,

=0D

=0D

Bad arg length for Socket::pack_sockaddr_in, length is 0, should be 4 at
D:/Perl

/lib/Socket.pm line 373.

=0D

Can anyone help me to resolve this error. The script we have written is
given below,

=0D

use DBI;

use strict;

my $driver=3D"Teradata";

my $server=3D"";

my $database=3D"test";

my $url=3D"DBI:$driver:$database";

my $user=3D"";

my $password=3D"";

=0D

my $dbh =3D DBI->connect($url,$user,$password) or die

"Failure!\n";

print "Success!\n";

$dbh->disconnect();

=0D

=0D

Thanks & Regards,

Radha Krishnan



This e-mail and any files transmitted with it are for the sole use of the=
intended recipient(s) and may contain confidential and privileged=
information.
If you are not the intended recipient, please contact the sender by reply=
e-mail and destroy all copies of the original message.=0D
Any unauthorized review, use, disclosure, dissemination, forwarding,=
printing or copying of this email or any action taken in reliance on this=
e-mail is strictly=0D
prohibited and may be unlawful.

Visit us at http://www.cognizant.com
------_=_NextPart_001_01C636AE.592A614F--