@Default_Tools_List = (
   [ 'gzip'        ,'app', '' , 'generic_check' ],
   [ 'gunzip'      ,'app', '' , 'generic_check' ],
   [ 'tar',        ,'app', '' , 'generic_check' ],
   [ 'tr',         ,'app', '' , 'generic_check' ],
   [ 'date'        ,'app', '' , 'generic_check' ],
   [ 'ps',         ,'app', '' , 'generic_check' ],
   [ 'cat',        ,'app', '' , 'generic_check' ],
   [ 'id',         ,'app', '' , 'generic_check' ],
   [ 'echo'        ,'app', '' , 'generic_check' ],
   [ 'pwd',        ,'app', '' , 'generic_check' ],
   [ 'chmod'       ,'app', '' , 'generic_check' ],
   [ 'ln',         ,'app', '' , 'generic_check' ],
   [ 'cp',         ,'app', '' , 'generic_check' ],
   [ 'rpm',        ,'app', '' , 'generic_check' ],
   [ 'clear'       ,'app', '' , 'generic_check' ],
   [ 'dirname'     ,'app', '' , 'generic_check' ],
   [ 'df'          ,'app', '' , 'generic_check' ],
   [ 'Carp'        ,'perlm', 'Perl Module - Carp', 'perl_module_check' ],
) ;

##</code><code>##

@Default_Tools_List = (
   (map [$_, 'app', '', 'generic_check'], qw(
      gzip gunzup tar tr date ps cat id echo pwd chmod ln cp rpm clear dirname df
   )),
   [ 'Carp'        ,'perlm', 'Perl Module - Carp', 'perl_module_check' ],
) ;