if (!(open (OUT, ">$_"))) { print "Error opening file $_ 
   for writing."; exit 0; }

##</code><code>##

if(!open(OUT, ">$_")){
	print "Error opening file $_ for writing: $!";
	# $! holds the error mesg
	exit 0;
}

##</code><code>##

open(OUT, ">$_") or die "Can't open $_ for writing: $!";

##</code><code>##

print ">$_";