# untested
open my $fh, '<', \$tarcontent or die "D'oh! $!\n";
my $tar=Archive::Tar->new($fh);