#!/usr/bin/perl -w
use strict;
use Archive::Tar;
my $tar = Archive::Tar->new;

$tar->read('file.tar.gz');
$tar->extract();

##</code><code>##

Archive::Tar=HASH(0x2dd2a4)