my $retval = test();
print $retval;

sub test{
  6;
}