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