c:\@Work\Perl\monks>perl -e
"package main;
 ;;
 use warnings;
 use strict;
 ;;
 sub foos () { foo(); }
 foos();
 ;;
 sub foo ($$$) { print qq{hi from foo() singular \n}; }
"
hi from foo() singular