#!/usr/bin/perl -w

use Time::Local;
use DBI;
my ($sec,$min,$hour,$day,$month,$yr19,@rest) =   localtime(time);             
my $tim = "$hour:$min";
my $dbh = DBI->connect($data_source)
    or die "Can't connect to $data_source: $DBI::errstr";
my $sql = "DECLARE @log varchar(5) SET @log=$tim Update dbo.tltime set logtime = @log";
my $sth = $dbh->prepare($sql)
    or die "Can't prepare statement: $DBI::errstr";
$sth->execute();
while ( my @row = $sth->fetchrow_array ) 
{
    foreach $row(@row)
       {
          print "$row";
}
}




I find error in the above query step....