#!/usr/bin/perl

use blib;
use Text::DoubleMetaphone qw( double_metaphone );

@ARGV or die "Usage: $0 <word> [word...]\n";

foreach my $word (@ARGV) {
  my(@codes) = double_metaphone( $word );
  print "$word: ", (join ', ', @codes), "\n";
}