# Temp.pm
package Temp;
printf "Context = %s\n", defined wantarray ? 0+wantarray : 'undef';
# true value, but may cause warning:
"nothing";

##</code><code>##

perl -lib=. -MTemp -we1

##</code><code>##

perl -wc Temp.pm