#*****************************************************************#
  # GRAPHIC:                                                        #
  # Bilder kopieren                                                 #
  #*****************************************************************#
  
  # Modul GD einbinden

  use GD;

  print "Content-type: image/png\n\n";

  $BILD = '/pfad/bilder/brd-karte.png';
  $HAND = '/pfad/bilder/hand.png';

  open(IMG, $BILD);
  my $image = GD::Image->newFromPng(\*IMG);
  close(IMG);

  open(IMG, $HAND) || print("nix");
  my $im = GD::Image->newFromPng(\*IMG);
  close(IMG);
  
  $GEOLAENGE = 48;
  $GEOBREITE = 82;
  
  $image->copy($im,$GEOLAENGE-10,$GEOBREITE-10,0,0,20,20);
  
  print $image->png;
  
  #*****************************************************************#

  #*****************************************************************#
  # Literaturhinweis                                                #
  #*****************************************************************#  

Perl Graphics Programming By Shawn Wallce O'Reilly 2002