#!/usr/bin/perl -w

$var="GG";

Mypackage::printthis();


package Mypackage;
{
	sub printthis
	{
		print "VAR is: $var\n";
	}
	
}