# Grab the first word... if ( $! =~ /Inappropriate/i ) { # Bug in perl 5.8.6... we're ignoring this message... (Inappropriate 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"; }