$var = '
# This line is not a comment of the above $var assignment
$x = 2;
$y = 3;
$z = 4';
eval $var;
$eval_sub='
sub five() {
my @args = @_;
print "ho\n";
5;
}';
eval $eval_sub;
$y = five();
print "$y\n";
$var = '
# This line is not a comment of the above $var assignment
$x = 2;
$y = 3;
$z = 4';
eval $var;
$eval_sub='
sub five() {
my @args = @_;
print "ho\n";
5;
}';
eval $eval_sub;
$y = five();
print "$y\n";