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

##</code><code>##

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