#!/usr/local/bin/perl5.00503

$mapath="/home/toyoda/WWW/maplot";

system("/home/toyoda/tmp/GMT3.4.2/bigmaplot.pl $mapath/big.eps 0");
system("/usr/local/bin/convert $mapath/big.eps $mapath/big.png 2>/dev/null");

print "Content-Type: text/html\n\n";
print "<img src=\"http://www.tkl.iis.u-tokyo.ac.jp/~toyoda/maplot/big.png\">\n";
exit;