sub Upload {		my $dst = shift; 	my $src = shift;	  my $data;
  my $ext = $src;	$ext =~ s/^.*\.//;	$dst .= ".$ext";

  open (DATEI,'>',$dst) or die 'Error processing file: ',$!;

  binmode $src;		
  binmode DATEI;

  # --- Datei hochladen
  while(read $src,$data,640000) {		print DATEI $data;	}

  close DATEI;
}