Gedrehte Bilddateien abhängig vom Endgerät - wie begegnet ihr der Sachlage

[ursus contionabundo]

So müsste es gehen (Hab lange kein Perl mehr gemacht...):

use Image::Magick;
function imagecopy( $from, $to ) {
    $image = new Image::Magick;
    if ( $image->Read( $from ) ) {
        return $image->Write( filename=>$to );
    }
}

Das kann, wie beschrieben, noch mehr: Image::Magick

Die Drehung (und noch viel mehr) kannst Du aus dem Original mit ExifTool auslesen.