open(INF1, "<", "$0.crypt") || die;
open(OUTF1, ">$0.decrypt") || die;
local $/=undef;
my $in = <INF1>;
print OUTF1 $cipher->decrypt($in);
close(INF1);
close(OUTF1);