Greetings Fellow Monks: The goal here is to recursively download files from a directory tree. I have found that Net::FTP::Recursive works quite well for the task. I have listed the cleared code below. I enabled debugging so that I can actually see what is going on, otherwise it just sits their and works but says nothing.

#!/usr/bin/perl -w
use strict;
use Net::FTP::Recursive;
my $ftp = Net::FTP::Recursive->new("ftp.domain.name", Debug => 1);
$ftp->login("anonymous",'scientist@site');
$ftp->cwd('/pub/files/');
$ftp->rget();
$ftp->quit;
[download]

The next step is to be able to exclude certain files that meet a regex pattern from being downloaded. According to the documentation this can be accomplished by including the parameter OmitAll into the rget() method. The documentation states that I give OmitAll a regex object. So let say we want to filter out files that contain a string "S1499" I implemented the following changes to the code(below) to no avail, can anyone point out perhaps what I am missing?
NEW CODE:

use strict;
use Net::FTP::Recursive;
my $ignore=qr/S1499/;
my $ftp = Net::FTP::Recursive->new("ftp.domain.name", Debug => 1);
$ftp->login("anonymous",'scientist@site');
$ftp->cwd('/pub/files/');
$ftp->rget([OmitAll => "$ignore"]);
$ftp->quit;
[download]

Any help and or insight is greatly appreciated!