#!/usr/bin/perl -w
chomp(my @list=`ls *.tar`);
foreach (@list) {
  system "tar -xvf $_";
}