use Archive::Tar;
my $tar = Archive::Tar->new( $tarball )
    or die "Failed to open $tarball : $!";
$tar->extract( $some_path )
    or die "Failed to extract $some_path: $!";