#!/usr/bin/env perl
use strict;
use warnings;
my $i = 1;
if ($i == 2) {
print STDERR "hello\n";
} else {
print STDERR "goodbye\n";
}
eval {
if ($i == 2) {
print STDERR "hello\n";
} else {
print STDERR "goodbye\n";
}
};
eval <<'EOF';
if ($i == 2) {
print STDERR "hello\n";
} else {
print STDERR "goodbye\n";
}
EOF
sub ev {
eval {
if ($i == 2) {
print STDERR "hello\n";
} else {
print STDERR "goodbye\n";
}
};
eval <<'EOF';
if ($i == 2) {
print STDERR "hello\n";
} else {
print STDERR "goodbye\n";
}
EOF
}
ev;