Maybe the following construct gives you better information:

unless ( open(PTR, '>>nate.txt') ){
  print "Error: couldn't open nate.txt: $!";
}
else {
  # rest of code here...
}
[download]