===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
ftpwatch-1.23+nmu1/ftpwatch.pl-42-
ftpwatch-1.23+nmu1/ftpwatch.pl:43:    if ((-f "$dir/.ftpwatchrc") && !(-d $ConfDir)) {system("mkdir $ConfDir");}
ftpwatch-1.23+nmu1/ftpwatch.pl-44-    open (C, "<$dir/.ftpwatchrc");    
##############################################
ftpwatch-1.23+nmu1/ftpwatch.pl-85-
ftpwatch-1.23+nmu1/ftpwatch.pl:86:            system ("diff $DiffOpt $cf $Tmp.2 > $Tmp.3");
ftpwatch-1.23+nmu1/ftpwatch.pl:87:            system ("cp $Tmp.2 $cf");
ftpwatch-1.23+nmu1/ftpwatch.pl-88-
##############################################
ftpwatch-1.23+nmu1/ftpwatch.pl-91-            if ($size > 0) {
ftpwatch-1.23+nmu1/ftpwatch.pl:92:                system ("mail -s \"Ftp Update: $sv$dir\" $EMail< $Tmp.3");
ftpwatch-1.23+nmu1/ftpwatch.pl-93-            }
ftpwatch-1.23+nmu1/ftpwatch.pl-94-        }
ftpwatch-1.23+nmu1/ftpwatch.pl:95:        system("rm $Tmp*");
ftpwatch-1.23+nmu1/ftpwatch.pl-96-    }
##############################################
ftpwatch-1.23+nmu1/tst-15-if (defined $ENV{PERL}) {
ftpwatch-1.23+nmu1/tst:16:	$version=`$ENV{PERL} -e 'printf "%.3f", \$]'`;
ftpwatch-1.23+nmu1/tst-17-}
##############################################
ftpwatch-1.23+nmu1/tst-29-	if (-d "$TMP/usr/lib/perl5") {
ftpwatch-1.23+nmu1/tst:30:	    foreach $file (split(/\n/,`find $TMP/usr/lib/perl5 -type f \\( -name "*.pm" -or -name "*.so" \\)`)) {
ftpwatch-1.23+nmu1/tst-31-	        $found++;
##############################################
ftpwatch-1.23+nmu1/tst-53-	my ($ff, $newdep);
ftpwatch-1.23+nmu1/tst:54:	foreach $file (split(/\n/,`find $TMP -type f \\( -name "*.pl" -or -perm /111 \\)`)) {
ftpwatch-1.23+nmu1/tst:55:		$ff=`file -b $file`;
ftpwatch-1.23+nmu1/tst-56-		if ($ff =~ /perl/) {
##############################################
ftpwatch-1.23+nmu1/tst-63-	if (not $dh{'K_FLAG'}) {
ftpwatch-1.23+nmu1/tst:64:		foreach $file (split(/\n/,`find $TMP -type f -name .packlist`))
ftpwatch-1.23+nmu1/tst-65-		{