#!/bin/sh

for word in 'foo' '-foo' 'foo::bar' '-foo::bar' 'FOO'
do  code='$_ = '$word'; print'
    for  args in ' ' '-w' '-Mstrict' '-Mstrict -w'
    do   cmd="perl $args -le '$code'"
         echo $cmd
         eval $cmd
         echo
    done
done