sub openFile {
        my ($filename, $mode) = @_;
        use FileHandle;
        my $filehandle = FileHandle->new($filename,$mode);
        if (defined $filehandle) {
                push(@openedFileHandles, $filehandle);
                return $filehandle;
        }
        return 0;
}

##</code><code>##

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

##</code><code>##

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