install.pl (248 bytes)
1 #!/usr/bin/perl 2 use strict; 3 use warnings; 4 5 `cp monitor.pl /usr/bin/monitor.pl`; 6 `cp forking.pl /usr/bin/forking.pl`; 7 open my $monitor, '>', 'monitor'; 8 my $pwd = `pwd`; 9 print $monitor "#!/bin/bash\nforking.pl $pwd\n"; 10 `cp monitor /usr/bin/monitor`;