testcall 1;
testcall(2);

sub testcall
{
	print $_[0];
	print "\n";
}