open FH, '>', 'filename' or die $!;

##</code><code>##

die $! unless open FH, '>', 'filename';

##</code><code>##

    open(FOO,$foo) || die "Can't open $foo: $!";

##</code><code>##

    die "Can't open $foo: $!" unless open(FOO,$foo);