use Archive::Tar; my $tar = Archive::Tar->new; $tar->read('origin.tgz',1); $tar->extract();