perl -Mdiagnostics -Mstrict -Mwarnings -e 'print "ok\n";;;;;;'
ok