#! perl -l
($ENV{XX}+=1e-3)<$]&&print$0=~/\\([^\\]+?).pl$/;exec+qq[perl "$0"]