===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libterm-clui-perl-1.76/lib/Term/Clui.pm-384-		close TTY; close TTYIN;
libterm-clui-perl-1.76/lib/Term/Clui.pm:385:		if ($^O =~ /^FreeBSD$/i) { system("stty $Stty </dev/tty") if $Stty;
libterm-clui-perl-1.76/lib/Term/Clui.pm:386:		} else { system("stty $Stty </dev/tty >/dev/tty") if $Stty;
libterm-clui-perl-1.76/lib/Term/Clui.pm-387-		}
##############################################
libterm-clui-perl-1.76/examples/audio_stuff-163-	while (1) {
libterm-clui-perl-1.76/examples/audio_stuff:164:		my $mb_so_far = `du -ms $tmp_dir`; $mb_so_far =~ s/\s.*$//;
libterm-clui-perl-1.76/examples/audio_stuff-165-		my $remaining = $max_mb - $mb_so_far;
##############################################
libterm-clui-perl-1.76/examples/audio_stuff-169-			if (! $f) { last;
libterm-clui-perl-1.76/examples/audio_stuff:170:			} if (-d $f) { system("cp","-R",$f,"$tmp_dir/");
libterm-clui-perl-1.76/examples/audio_stuff:171:			} else { system("cp",$f,"$tmp_dir/");
libterm-clui-perl-1.76/examples/audio_stuff-172-			}
##############################################
libterm-clui-perl-1.76/examples/audio_stuff-176-			if (! $f) { last;
libterm-clui-perl-1.76/examples/audio_stuff:177:			} else { system("rm","-rf","$tmp_dir/$f");
libterm-clui-perl-1.76/examples/audio_stuff-178-			}
##############################################
libterm-clui-perl-1.76/examples/audio_stuff-185-	print "\n";
libterm-clui-perl-1.76/examples/audio_stuff:186:	system("rm","-rf",$tmp_dir);
libterm-clui-perl-1.76/examples/audio_stuff-187-	# could mount -o loop $tmpfile and check it's OK ...
##############################################
libterm-clui-perl-1.76/examples/audio_stuff-856-echo Getting rid of spaces in .mp3 files ...
libterm-clui-perl-1.76/examples/audio_stuff:857:for i in *.[Mm][Pp]3; do mv "$i" `echo $i | tr ' ' '_'`; done
libterm-clui-perl-1.76/examples/audio_stuff-858-echo Changing .MP3 to .mp3 ...
libterm-clui-perl-1.76/examples/audio_stuff:859:for i in *.MP3; do mv "$i" `basename $i .MP3`.mp3; done
libterm-clui-perl-1.76/examples/audio_stuff-860-echo Changing _-_ to _ ...
libterm-clui-perl-1.76/examples/audio_stuff:861:for i in *_-_*.mp3; do mv "$i" `echo $i | sed s/_-_/_/`; done
libterm-clui-perl-1.76/examples/audio_stuff-862-
##############################################
libterm-clui-perl-1.76/examples/audio_stuff-865-echo Decoding .mp3 files to *.wav ...
libterm-clui-perl-1.76/examples/audio_stuff:866:for i in *.mp3; do lame --decode $i `basename $i .mp3`.wav; done
libterm-clui-perl-1.76/examples/audio_stuff-867-
##############################################
libterm-clui-perl-1.76/examples/choose-56- MY_GROUPS=`groups`
libterm-clui-perl-1.76/examples/choose:57: chgrp `choose "Change $FILE to which group ?" $MY_GROUPS` $FILE
libterm-clui-perl-1.76/examples/choose-58-
##############################################
libterm-clui-perl-1.76/examples/login_shell-151-	if (system "man '$topic'") {
libterm-clui-perl-1.76/examples/login_shell:152:		my $txt = `man -k '$topic'`;
libterm-clui-perl-1.76/examples/login_shell-153-		&view("Keyword search on $topic", $txt);