use File::Spec::Functions qw(devnull);
...
if(!open(FH, ">...")) { 
  warn " ... $!...";
  open(FH,'>',devnull) or die "$!";
}