perl -MXBase -ce 1