#!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";