Select Code to Download

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

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

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