#!/usr/local/perl-5.6.1/bin/perl
use strict;
$|=1;

eval {
  open (FOO,">/tmp/tmp/tmp/tmp") ||die
  print FOO "hello";
  close FOO;
};

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


me@unixsystem:/tmp# ./fp.pl
open failed Died at ./fp.pl line 6.


##</code><code>##

use strict;
$|=1;

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

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