Select Code to Download

package MySystem;

...
    print "wrapped system(): @_\n";
}
1;

#!/usr/bin/perl

...
package SomeOtherModule;

system "echo bar";

$ ./test.pl
wrapped system(): echo foo
bar