#!/usr/bin/perl -w BEGIN{$^H|=1538} $_=q|'%`>(xudslpu!tgmecj!ntgr!tgjvqpc!vuwl(