Select Code to Download

my $sql1 = qq{ INSERT INTO table VALUES (
    current_timestamp,
...
    }; 

$dbh->do ($sql1,undef,$var);

execute called with 1 bind variables, 0 needed at /usr/lib/perl5/vendo
+r_perl/5.8.3/i586-linux-thread-multi/DBI.pm line 1383.

DBI::st=HASH(0x8357038)->_prepare(...): attribute parameter '<contents
+ of $var>' is not a hash ref at /usr/lib/perl5/vendor_perl/5.8.3/i586
+-linux-thread-multi/DBD/Pg.pm line 146.