#!/usr/bin/perl -w
$fNam = $ARGV[0];
$tNam = $fNam . "~";
$c0 = $ARGV[1];
$c1 = $ARGV[2];

&mySystem("mv $fNam $tNam");
#&mySystem("sed 's/stroke=\"" . $ARGV[1] . "\"/stroke=\"" . $ARGV[2] . "\"/ $tNam" . $ARGV[0] . " > t";
$cmd = sprintf("sed 's/stroke=\"%s\"/stroke=\"%s\"/' $tNam > $fNam",$c0,$c1);
&mySystem($cmd);

sub mySystem() {
  ($_) = @_;

  print "$_\n";
  system($_);
}

#cat $1 | sed 's/stroke="black"/stroke="red"/' > t
