Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        }
    else {();}
    }

sub any (&@) {
    my $f = shift;
...
    }
    return 0;
}