use Cwd;

##</code><code>##

open( GRADES, '<', $grades ) 
   or die sprintf("error opening %s: %s (%d) cwd=%s\n", $grades, $!, $!+0, getcwd );