open(INF, "< $0" ) || die;
binmode INF;
open(OUTF, ">$0.crypt") || die;
binmode OUTF;