#!/usr/bin/perl
use
strict;
use
warnings;
use
File::Find;
find ({
wanted
=>\
&wanted
,
follow
=> 1 }, (
$RealBin
.
'/..'
,
@INC
));
sub
wanted {
if
(
$File::Find::name
=~ m/App\/ipchgmon.pm$/) {
my
$cmd
=
join
" "
,
'perl'
,
$File::Find::name
,
@ARGV
;
say
qx($cmd 2>&1)
;
exit
;
}
}