Select Code to Download

    sub doit{
     return "How are you?\n";
...
    open (FILE, ">files.txt");
    print FILE &doit;
    close(FILE);

    sub doit{
     my $handle = shift;
...
    open (FILE, ">files.txt");
    doit(*FILE);
    close(FILE);