perl -x $0 $*