{use Filter::Inject $x,$y;} print "after same line (x=$x, y=$y)\n";
print "new line: x=$x, $y\n";

##</code><code>##

BEGIN {use Filter::Inject $x,$y;} print "after same line (x=$x, y=$y)\n";
print "new line: x=$x, $y\n";

##</code><code>##

BEGIN {use Filter::Inject $x,$y;};;; print "after same line (x=$x, y=$y)\n";
print "new line: x=$x, $y\n";