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

##</code><code>##

require "framework.pl";

$framework::date = "2001-12-05";
&framework::testcase1;
$framework::date = "2001-11-15";
&framework::testcase1;