Select Code to Download

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

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

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

print ">$_";