test7_t

source of perl for linux application,

BEGIN {
	print "in BEGIN\n";
}

sub foo {
	print "in sub foo\n";
}

foo();