#!/usr/bin/perl -w
use strict;
use Archive::Tar;
my (@files,$i,$name,$ext,@filelist,@textfiles);
my $tar = Archive::Tar->new();
$tar->read('some.tar');
$tar->extract();
my $tar1 = Archive::Tar->new();
@files=<*.tgz>; 
for $i(0..$#files)
{  
   $tar1->read("$files[$i]");
   $tar1->extract();            #untar .tgz files
   @filelist=<*.txt>;       
   system("perl script1.pl ");    #run 4 scripts on the files and get the data                                     #from files
   system("perl script2.pl ");
   system("perl script3.pl ");
   system("perl script4.pl ");
   @textfiles=("file1.txt","file2.txt");
   unlink @textfiles;     #remove unwanted textfiles from the directory
   unlink @filelist;      #remove the extracted files
}