####
...........
...........
while (read(INF1,my $buf, 1024 ) )
      {
            print OUTF1 $cipher->decrypt($buf);
      }

pri.<d^KOb.Ï->finish;
close(INF1);
close(OUTF1);