#!/usr/bin/perl use strict; use warnings; use Digest::MD5 qw(md5_hex); unless (@ARGV) { print "perl $0 hashme hashmetoo\n"; exit; } print $_, " = ", md5_hex($_), "\n" for @ARGV; print "\n"; print md5_hex($_), "\n" for @ARGV;