use Archive::Tar;

$input="libpst.tar.gz";
my $tar = Archive::Tar->new($input);
my @files = $tar->list_files;
foreach my $file (@files)
{	
    
	
	$tar->extract_file($file, "C:/extract/$input");
	my $c++;
	print "$c";

}