use warnings;
use strict;

my $x = foo;
print $x, "\n";

sub foo {return 42}

##</code><code>##

use warnings;
use strict;

my $x = foo();
print $x, "\n";

sub foo {return 42}