Select Code to Download

$/ = \8; # Read 8-byte records. Behind the scenes, Perl will do buffer
+ing of reads.
print OUTFILE blowfishify($_)
   while <INFILE>;