$dc->Image('briefpapier.png', 0, 0);

# Umwandeln einer Grafik in einen String
open MYFILE, 'bild.png'  or die "Cannot open file: $!";
binmode MYFILE;
my $rawdata;
while (<MYFILE>) 
        {
        $rawdata .= $_;
        }
close MYFILE;

my $bildstring = encode_base64($rawdata);

# Diesen String als Bild verwenden:

$mw->Photo( -data => $bildstring );

sub Image {

  my $self = shift;

  if (($#_ != 0) and ($#_ != 2) and ($#_ != 4)) {
    _croak "ERROR: Wrong number of parameters!\n";
    return undef;
  }

  my ($width, $height) = (0, 0);

  if (($#_ == 2) or ($#_ == 4)) {

    my ($fileorref, $x, $y, $w, $h) = @_;

    if (!_IsNo($fileorref)) {
      $fileorref = $self->Image($fileorref);
      unless (defined($fileorref)) { return undef; }
    }

    _GetEnhSize($self->{dc}, $fileorref, $width, $height, $self->{unit});
    $width = $self->_xp2un($width);
    $height = $self->_yp2un($height);

    if ((!defined($w)) or ($w == 0)) { $w = $width; }
    if ((!defined($h)) or ($h == 0)) { $h = $height; }

    unless (_PlayEnhMetaFile($self->{dc}, $fileorref, $self->_xun2p($x), $self->_yun2p($y), $self->_xun2p($x + $w), $self->_yun2p($y + $h))) {
      _croak "ERROR: Cannot display metafile! ${\_GetLastError()}";
      return undef;
    }

    return wantarray ? ($fileorref, $width, $height) : $fileorref;

  } else {

    my $file = shift;

    if (_IsNo($file)) {
      _GetEnhSize($self->{dc}, $file, $width, $height, $self->{unit});
      $width = $self->_xp2un($width);
      $height = $self->_yp2un($height);
      return ($width, $height);
    }

    if (defined($self->{imagef}->{$file})) {
      _GetEnhSize($self->{dc}, $self->{imagef}->{$file}, $width, $height, $self->{unit});
      $width = $self->_xp2un($width);
      $height = $self->_yp2un($height);
      return wantarray ? ($self->{imagef}->{$file}, $width, $height) : $self->{imagef}->{$file};
    }

    my $fref;

    if ($file =~ /.emf$/) {
      $fref = _GetEnhMetaFile($file);
      unless ($fref) {
        _croak "ERROR: Cannot load metafile! ${\_GetLastError()}";
        return undef;
      }
    } elsif ($file =~ /.wmf$/) {
      $fref = _GetWinMetaFile($self->{dc}, $file);
      unless ($fref) {
        _croak "ERROR: Cannot load metafile! ${\_GetLastError()}";
        return undef;
      }
    } else {

      $fref = _LoadBitmap($self->{dc}, $file, -1, $self->{unit});

      unless ($fref) {
        _croak "ERROR: Cannot load bitmap! ${\_GetLastError()}";
        return undef;
      }

    }

    $self->{imager}->{$fref} = $file;
    $self->{imagef}->{$file} = $fref;

    _GetEnhSize($self->{dc}, $fref, $width, $height, $self->{unit});
    $width = $self->_xp2un($width);
    $height = $self->_yp2un($height);
    return wantarray ? ($fref, $width, $height) : $fref;

  }

}

Tk::Error: ERROR: Cannot load bitmap! Fehler beim Einlagern einer Speicherseite.
 at Z:\Development Sync\RFK\rfk.pl line 11133
 Carp::croak at C:/Perl/lib/Carp.pm line 44
 Win32::Printer::_croak at C:/Perl/site/lib/Win32/Printer.pm line 122
 Win32::Printer::Image at C:/Perl/site/lib/Win32/Printer.pm line 2477
 Win32::Printer::Image at C:/Perl/site/lib/Win32/Printer.pm line 2422
 main::rechnungen_print_kopf at Z:\Development Sync\RFK\rfk.pl line 11133
 main::rechnungen_print at Z:\Development Sync\RFK\rfk.pl line 11034
 main::__ANON__ at Z:\Development Sync\RFK\rfk.pl line 9950
 Tk callback for .toplevel.frame.button3
 Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 250
 Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 175
 <ButtonRelease-1>
 (command bound to event)