Select Code to Download

filename => '@',            # @ = array (of char) = string

filename => '$',

use strict;
use warnings;
...
printf "File ID:  %s\n", $doc->fileID;
printf "Filename: %s\n", $doc->filename;
printf "Tags:     %s\n", join(', ', @{ $doc->tags });

22:52 >perl 1068_SoPW.pl
File ID:  123
...
Tags:     tag1, tag2, tag3

22:52 >