Select Code to Download

while (@vars)
{
        print "directive: ";
...

        print $/;
}

sub print_directive
{
        return unless @_;
...
}

print_directive @vars;