#!/usr/bin/perl
 @list=`ls *.tar`;
 foreach $file(@list) {
        chomp ($file);
        system('tar -xvf $file');

}