$ perl -e 'sub double { return 2 * shift;} ; my $c = sprintf "%s\n%s\n",  "foo", double(3); print $c;'
foo
6