1 2 3 4 5 6 7 8 9 10 11 12
package Systemexec; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(system exec); @EXPORT_OK = qw(); sub system($$@) { 1; } sub exec($$@) { 1; } 1;