use Archive::Tar;
my $tar = Archive::Tar->new;
chdir '/tmp' or die $!;
$tar->read('anything.tgz', 1, { 'extract' => 1 } );