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