# Modul einbinden
use Win32::GUI;

# Bildschirm holen
my $screen = Win32::GUI::DC -> new( "SCREEN" );

# Bilddaten auslesen ( da gibts bestimmt schon ne Funktion GetRect() oder ähnlich, habs aber gerade nur so im Kopf )
my $color = $screen -> GetPixel( $x, $y );

# Desktop bemalen ( bestimmt kannste auch direkt ein Rechteck malen, hab nur gerade nur diese Funktion im Kopf )
$screen -> SetPixel( $x, $y, $color );