#!perl -d:MyX