# Grab the first word...
        if ( $! =~ /Inappropriate/i )
        {
            # Bug in perl 5.8.6...  we're ignoring this message...  (I
+nappropriate ioctl for device) Warning...
        }
        else
        {
                 print "System Message on Open --> $! \n" ;
         print "Not fatal if the file doesn't exist, because the open 
+will create the file...\n";
         print "Continuing... \n";
        }
[download]