open( $fh, '>', $filename ) or die "Unable to open file: $!";

my $foo = $bar || 'baz';