@count=`find dir_name -name *.tar`;
@args = qw( tar -x -f );

foreach $cnt(@count){
    push @args, $cnt;
    system(@args) == 0 or die "system '@args' failed: $?";
    pop @args;
}