use Archive::Tar;
my $tar = Archive::Tar->new('tarball.tgz', 1) or die $!;
$tar->rename($_, changepath($_)) for $tar->list_files;
$tar->extract;