sub upload(){
  my $self = shift;
  my $browser = new LWP::UserAgent;
  my $resp;
  my $ret;
 my $UTF_WHO = 'PerlUpload/0.1';
  $browser->agent($UTF_WHO);
  my $resp = $browser->post('api.domain.de/upload.php',[0 => ???]);
}