use strict;
use warnings;

my $var;

#SENDERSEITE:

open(IN, "<test.jpg");	#bild öffnen
    while (<IN>) {
	$var=$var . $_;  #einlesen des bildes in $var
    }
close(IN);

#EMPFÄNGERSEITE:

open(OUT, ">result.jpg");  
print OUT "$var";       #schreiben von $var in neues bild
close OUT;