Select Code to Download

my $sqlstmt = "select to_date('$tdate','mm/dd/yyyy') from dual";
my $sth = $dbh->prepare($sqlstmt);
...
my $tmp;
$sth->bind_columns(undef, \$tmp);
while($sth->fetch()) {$tdate = $tmp;}

$sth->bind_col(1, \$tmp);