Select Code to Download

        $logfile=~/(.*)\.tar\.gz$/; 
        my $dirname=substr($1,0,-2);

$logfile =~ /(.*)..\.tar.gz$/ or die "Bad non-match on $logfile";
my $dirname = $1;