do{print, return $_ for "1\nError was $foo\n"} if $foo;

##</code><code>##

sub teeprint { print, return $_ for @_ }

##</code><code>##

return teeprint "1\nError was $foo\n" if $foo;