Select Code to Download

my $filepath = 'foo.txt';
open my $FOOFILE, '>>', $filepath or die "Couldn't open $filepath \n";
...
        }

    }

sub do_other_stuff {

...
    }
    close $FOOFILE;
}