#!/usr/bin/perl

use HTTP::Request;
use LWP::UserAgent;
use MIME::Base64 qw(encode_base64);

open(BILD,"picture.gif");
while(read(BILD,$buf,60*57))
  {
    $userfile .= encode_base64($buf,"");
  }
close(BILD);

$browser = new LWP::UserAgent;

my $req = new HTTP::Request POST,'http://192.168.1.241/GMS/bildarchiv/manage_addGMSImage',[file => $userfile];

$req->authorization_basic('user','passwd');

$ergebnis = $browser->request($req)->as_string;
print "Bild abgeschickt\n".$ergebnis;


##</code><code>##

Can't call method "clone" on unblessed reference at /usr/lib/perl5/site_perl/5.6.0/HTTP/Message.pm line 53.