#!/usr/bin/perl -w

use CPAN;

for my $mod (CPAN::Shell->expand("Module","/./")){
        next unless $mod->inst_file;
	print $mod->id, '(', $mod->inst_version, ') ';
	unless($mod->uptodate()) {
	        print "\t\t#( V. ",$mod->cpan_version, " available on CPAN)";
	}
	print "\n";
}