my $date = "2012-01-12";
print "date is := $date\n";