my $var = foo();

sub foo
  {
    return 'bar';
  }

print $var;