Hi Monks, Please help me with this.

perl version used is 5.8.4

#!/usr/bin/perl -w

use strict;
use warnings;
use DBI;
use DBD::Teradata;


print "DBI::VERSION: $DBI::VERSION\n";
use DBD::Teradata;
print "DBD::Teradata::VERSION: $DBD::Teradata::VERSION\n";

#use strict;       # General syntax-enforcing module.
use POSIX;        # to get the localtime() routine

print "Connecting to DB\n";

my $dbh = DBI->connect('dbi:Teradata:xxxxx:1025', 'xxxx', 'xxxxxxxx')
        or die "ERROR: Unable to connect to database...\n" . DBI->errs
+tr;

print "Teradata DB Connected\n";

$dbh->disconnect;

print "Disconnected Teradata DB\n";

print "Script Ends here\n";
[download]

Error msg:

DBI::VERSION: 1.616 DBD::Teradata::VERSION: 12.001 Connecting to DB DBI connect('PCOP1:1025','qftmap02',...) failed: System error: can't recv msg header Illegal seek; closing connection. at connect16.pl line 23 ERROR: Unable to connect to database... System error: can't recv msg header Illegal seek; closing connection. at connect16.pl line 23.

But when I run the same script in another server which has perl 5.8.0.

The output is comming out fine

DBI::VERSION: 1.50 DBD::Teradata::VERSION: 1.20 Connecting to DB Teradata DB Connected Disconnected Teradata DB Script Ends here

what is the error(System error: can't recv msg header Illegal seek; closing connection. at connect16.pl line 23) all about?? Please help ....