G'day ra93013,

Your problem is probably this line:

my $pattern_re = m/(?:$args{pattern})/o;
[download]

That's attempting to perform a match (m//) on $_ which isn't set ("uninitialized value $_"). See perlre.

What you probably want is qr//, not m//. See "Regexp Quote-Like Operators".