Select Code to Download

package framework;
use strict;
...
{
     print $date;
}

require "framework.pl";

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