use strict;
use Archive::Tar;
my $filename = "filename.tar.gz";
Archive::Tar->extract_archive($filename);