Your use of flock is classic race condition, you're not supposed to unlock, simply close the filehandle. See Order of flock and open, File Locking Tricks and Traps

A function called Warning_One should probably not call exit :) thats like a warning shot to the brain :) oops :)

For maintainability, small style suggestion, instead of a comment ########## MAIN PROGRAM #########, make it a function called Main, see template at (tye)Re: Stupid question (and one discussion of that template Re^2: RFC: Creating unicursal stars)

In the same spirit (of reusability), lexical filehandles are prefered to the global ones (like RESULTS). See the book Modern Perl Released as Free ePub for many such suggestions, it is a loose description of how experienced and effective Perl 5 programmers work....You can learn this too.


In reply to Re: is this script secured enough from internet attacks by Anonymous Monk
in thread is this script secured enough from internet attacks by tercoz

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.