use warnings;
use strict;

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

sub foo {return 42}