Select Code to Download

use Bar;
use CGI;
our $q = CGI->new();

Bar::do_stuff(\$q);

    
sub do_stuff {
...
    close(FH);
    return;
}