_UNPAK.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_UNPAK();}
1;
sub _UNPAK {
    my $INPUT = shift || "";
    my $tTag="";
    my $tFile="";
    my $gTag="";
    my $gFile="";
    print "  _UNPAK($INPUT)\n";
    print "  cwd:" . cwd . "\n";
    my $pCwd = cwd;
    if (! -f $INPUT) {
        chdir $PAK;
        $INPUT = &selectFILE("$INPUT");
    }