Select Code to Download

sub do_stuff {
    my $dir = shift;
    my $pattern = shift;
    ...

my ($dir, $pattern) = @_;

$what     --> $pattern_str
@t        --> @patterns
$f        --> $pattern 
$file2md5 --> $fname

"$file2md5"

my $fname_out = 'name.txt';

...

#and then...
print $OUTFILE "whatever";