#!/usr/bin/perl -w

use strict;

my $bms;
{ local $/; my $file = shift; open BMS, $file; $bms = <BMS> }

my @html = split /<DT>/, $bms;

foreach my $link (@html) {
  my ($dest, $name) = $link =~ m#<A HREF="([^"]+)"[^>]*>([^<]+)</A>#;
  print <<"EOF";
  {
  '$name' =>
  '$dest'
  },
EOF
}