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