Select Code to Download

    sub compressTxtFiles
    {
...
        zip [ <$dir/*.txt> ] => $zipfile,
            FilterName => sub { s[^$dir/][] } ;  
    }

#! /usr/bin/env perl
use strict;
...
# files in zip (according to 'unzip -l')
FOO.dat
BAR.dat