#!/usr/bin/perl -w
use strict;
eval ' my $x= hello() or die $x->error(); 1 '
    or  warn "$@\n";
eval ' my $y= hello() || die $y->error(); 1 '
    or  warn "$@\n";
__END__
Global symbol "$x" requires explicit package name at (eval 1) line 1.
Global symbol "$y" requires explicit package name at (eval 2) line 1.