package framework;
use strict;
my $date = "2001-11-12";
sub testcase1
{
     print $date;
}