use strict;
$|=1;

eval {
  open (FOO,">c:\gpp\gpp\gpp") ||die;
  print FOO "hello";
  close FOO;
};

if ($@) {
  print "open failed $@";
}