perl技 dias fileを抽出する

〇対象ファイルをカレントに出力することがポイント

#!/usr/bin/perl
use File::Basename;
use strict;

my @files=`tar tvf files.tar`;chomp @files; 
foreach my $tf(@files){
    my @dum=split(/\s+/,$tf);
    my $n=0;
    foreach my $dum(@dum){print "$n $dum\n";$n++;}
    my $ttf=$dum[5];
    my $bf=basename($ttf);
    $bf=~/.gz$//;

   print"tf=$ttf bf=$bf\n";
    system"gunzip $ttf -c >$bf";
}