Given a list of modules, how do I produce a list of licences used? Is there a module on cpan that will take me half-way or even to the finish? Pseudo-code:

while(<DATA>) {
  print $_ . " - " . get_licence($_);
}
__DATA__
DateTime
JSON::Schema 
Parse::Dia::SQL
[download]

Where the expected output would be:

DateTime - The Artistic License 2.0
JSON::Schema - The MIT Licence
Parse::Dia::SQL - GNU General Public License.
[download]