It would be nice to see the connection code, the sql and the exec. From your code snippet, not only is the data being truncated but it's also misspelling -- that's one of two things: a typo in your writeup or you're not really connecting to the database you want.

update:And the DDL that defines the truncated fields as well.

Perhaps if you set $dbh->{LongTruncOk} = 0; it will throw a useful error

Cheers,
R.

See if this test script displays the same problem ;

#!perl
use strict;
use DBI;
my $dbh = ..; # your connect credentials

# temp test table setup
my $t = '#test';
$dbh->do("CREATE TABLE $t
         (COL1 VARCHAR(100))");  
$dbh->do("INSERT INTO $t VALUES (?)",undef,'A'x60);

my ($s) = $dbh->selectrow_array("SELECT * FROM $t");
print '| ',('1234567890'x6)," |\n";
print "| $s |\n";
[download]

G'day ruv,

Welcome to the monastery.

Your assumption that the data you're receiving has been truncated may be incorrect. Can you use Data::Dumper (or equivalent) to determine exactly the data you receive. If this shows truncation, post the code you're using to get the data; otherwise, post the code outputting your resultset.

Provide us with sufficient information so we can help you: at the moment, all we have is what you want and what you get; we know nothing about the data you received, what you did to get it, how you received it, how you formatted it or how you output it. If in doubt, refer to the guidelines in "How do I post a question effectively?".