Select Code to Download

sub openFile {
        my ($filename, $mode) = @_;
...
        }
        return 0;
}

my $logfile = openFile("application.log",">>");

foreach my $filehandle (@openedFileHandles) {
        if (fileno($filehandle)) {
                $filehandle->close();
        }
}