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