use Archive::Tar;

my $bundle = "C:\\My_Sample.tar.gz";
my $tar_engine = Archive::Tar->new($bundle, 1);

if($tar_engine == undef)
{
    print "\nCant get tar object\n";
}
else
{
    my @filelist = $tar_engine->list_files();		  
    if(!$tar_engine->extract(@filelist))
    {
        my $ret = 1;
        print "\nError in extraction.\n";
    }
}

print "\nCompleted Successfully\n";