Select Code to Download

foreach $file ($afile, $bfile, $cfile, $dfile) {
    if (defined $file) {
...
        &done; 
    }
}

&sub1("Good");

...
    my $var = shift;
    print "We're having an argument: $var.\n" if defined $var;
}