#!/usr/bin/perl 
# -*- perl -*-

my $vf = shift(@ARGV);

print "Making file $vf\n";

open(VF, "> $vf");

my %reps = @ARGV;

print VF "\$reps = {\n" || die "Can't print";

foreach (keys %reps) {
  print VF "    '$_' => \"" . $reps{$_} . "\",\n" || die "Can't print";
}

print VF "};\n" || die "Can't print";





