print "some text\n;
my $foo;
";