1: #!/usr/local/bin/perl
 2:
 3: use GD;
 4: require 5.002;
 5: require "cgi-lib.pl";
 6: &ReadParse(*FORM);
 7:
 8: $mfile = "miss.gif";
 9: $afile = "arrow.gif";
10: $FORM{xp} = 200 unless ($FORM{xp});
11: $FORM{yp} = 200 unless ($FORM{yp});
12:
13: open(GIF,$mfile) || die("Cannot open $mfile.");
14: $main = newFromGif GD::Image(GIF) || die("Cannot create image: $mfile.");
15: close GIF;
16:
17: open(GIF,$afile) || die("Cannot open $afile.");
18: $arrow = newFromGif GD::Image(GIF) || die("Cannot create image: $afile.");
19: close GIF;
20:
21: $main->copy($arrow,$FORM{xp},$FORM{yp},0,0,55,55);
22:
23: print "Content-type: image/gif\n\n";
24: print $main->gif;
25: exit;