use strict;
use warnings;
use DBI;


use constant DB_HOST=>'localhost';
use constant DB_NAME=>'test';
use constant DB_USR=>'testUser';
use constant DB_PWD=>'';

sub localDate {
	
	my $ora;
	
	unless (@_) {	# se non ci sono parametri
		$ora=time;	# ora e' il timestamp
	} else {	
		
		$ora= shift @_; # altrimenti ora e' il primo parametro
	}

	my ($sec,$min,$hour,$mday,$mon,$year,$wday,
        $yday,$isdst)=localtime(time);

       sprintf "%4d-%02d-%02d %02d:%02d:%02d",
       $year+1900,$mon+1,$mday,$hour,$min,$sec;


}


my	$dbh = DBI->connect( 'DBI:mysql:'.DB_NAME.':'.DB_HOST,DB_USR,DB_PWD)
				or die "Connecting : $DBI::errstr\n "; 

my $ora=&localDate;	
print "\n\n";
print 'date: '.$ora;
print "\n\n";
my $update="UPDATE `test_table` SET `test_cl_1`=1,`test_cl_2`='$ora' WHERE `test_id`=4;";


print "\n\n";
print $update;
print "\n\n";
                        
$dbh->do($update)
  or die "problem while updating: $dbh->errstr \n";