#!/usr/bin/perl

$bar=10;
@horiz=( 150, 150, 500, 500 );
@vert=(  180, 320,  180, 320);

$cmdconv='convert masker.jpg -stroke white -strokewidth 3 ';

foreach $x (@horiz) {
 $y=shift( @vert);
#print "$x, $y";

$xh=$x+$bar; $xl=$x-$bar;
$yh=$y+$bar; $yl=$y-$bar;

$cmdconv .= "-draw \"line $xh,$y $xl,$y\" "; 
$cmdconv .= "-draw \"line $x,$yh $x,$yl\" "; 
}

$cmdconv .= "worldco1.jpg";
#print $cmdconv;
#system($cmdconv);
system $cmdconv;
#`"$cmdconv"`;

$cmddisp = 'display worldco1.jpg';
#system($cmddisp);
system $cmddisp;
#`$cmdconv`;