Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

#print Dumper(\$config);
print 'Licences: ' . join ',', @{$config->{licence}};
  2. or download this
    printf "First licence: %s\n", ${$config->{licence}}[0];
printf "Second licence: %s\n", ${$config->{licence}}[1];
  3. or download this
    use File::Spec::Functions qw/catfile/;
...
...
} else {
    print catfile($::folder,$config->{licence})
}