perl -wMstrict -e"if( my() = 0 ) { print 'Passed'; } else { print 'Failed'; }" #### perl -wMstrict -e"if( my(\$test) = 0 ) { print 'Passed'; } else { print 'Failed'; }"