The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/usr/bin/perl
use Digest::MD5 qw/md5_hex/;

$/=undef;

while(<>) {
  print md5_hex($_),"  $ARGV\n";
}