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