#!/usr/bin/perl

use MIME::Base64;

open(INFIEL,"< /home/bug/bild") || die("fehler");;
open(OUTFILE, "> ./bild.jpg");

@file = <INFILE>;


foreach (@file)
 {
  print (<OUTFILE> , decode_base64($_));
 }
 

close (INFILE);
close (OUTFILE);