Select Code to Download

fbrm@debian:~$ setfacl -m u:nobody:r ~/CODE/PERL/t.pl 

...
/home/fbrm/CODE/PERL/              USER:fbrm:rwx  GROUP:fbrm:rwx
/home/fbrm/CODE/PERL/showperms.pl  USER:fbrm:rwx  GROUP:fbrm:rwx
/home/fbrm/CODE/PERL/t.pl          USER:fbrm:rw-  GROUP:fbrm:rw-

#!/usr/bin/perl
use strict;
...
for my $k (sort keys %P){
    print "$k $P{$k}\n";
}