#!perl
use strict;
use warnings;

use Archive::Tar;
use Module::Locate qw/ locate /;

my $tar = Archive::Tar->new;
$tar->read('origin.tgz', COMPRESS_GZIP, {filter => 'MANIFEST'});
my @files = split /[\r\n]/, $tar->get_content( 'MANIFEST' );
my @modfiles = grep s|lib/||, @files;
my @modules = map s|/|::|, @modfiles;

for (@modules)
{
    my $p = locate($_);
    if ($p)
    {
        print "Found '$_' at '$p'\n";
    }
    else
    {
        print "Not installed: '$_'\n";
    }
}