use strict;
use warnings;
#use Data::Dumper;

my ($content);
{ open my $fh,'<','work.conf' or die $!;
  local $/; 
  $content = <$fh>;
}
my $config = eval $content;

#print Dumper(\$config);
print 'Licences: ' . join ',', @{$config->{licence}};