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

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

##</code><code>##

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

##</code><code>##

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.