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