#!/Users/metaperl/install/bin/perl

use strict;

my $file = shift or die 'must supply file';

my ($white,$black) = split '-', $file;

my $color;
if ($white =~ /princepawn/) {
    $color = 'w';
} else {
    $color = 'b';
}

my @cmd = ('annotateh', $file, $color, qw(1-999 1 5));
warn "@cmd";
system @cmd;