use warnings;
use strict;

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

sub foo {return 42}