#!/usr/bin/perl
use warnings;
use strict;


eval { 
	open( my $fh, '<', 'hello' ) or die "$!";
	1;
} or { 
	print "world\n"; 
}