#!/usr/bin/perl -w
use strict;
use Archive::Tar;

my $wdir = "U:\\EMM loads"; 
my $tarballs; 
my $toc = "toc"; 


opendir(PWD, $wdir) or die "can't open $wdir: $!";
while (defined($tarballs = readdir(PWD))) {	
	if ($tarballs =~ /\.tar$/) {	
		my $tar = Archive::Tar->new("$wdir\\$tarballs");
		$tar->extract_file($toc,$wdir);
		}
}
closedir(PWD);