sub foo
{
	$a = shift;
	print "$a is in foo\n";
}
$fred = 12;
print "Loaded t.pl";
1;