#!/usr/bin/perl
use strict;
use FindBin qw($RealBin);
use feature 'say';
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;
}
}