Help for this page
do{print, return $_ for "1\nError was $foo\n"} if $foo;
sub teeprint { print, return $_ for @_ }
return teeprint "1\nError was $foo\n" if $foo;