Select Code to Download

for( 1 .. 10 ) {
    my $print = make_printer( "dir$_" );
...
        $print->( "file$_" );
    }
}

sub make_printer {
    my $hdr = shift;
...
    }, 'PRINTER';
    sub PRINTER::DESTROY { shift->() }
}