#!/usr/bin/perl
$A=shift;open A or die "$A: $!";
$B=shift;open(B,">$B") or die "$B: $!";

read A,$b,4 or die "ende" ;
(@a)=unpack('C4',$b);
$bo=pack('C4',$a[3],$a[2],$a[1],$a[0]);
print B $bo;

read A,$b,20 or die "ende" ;
print B $b;

while( 1 ) {
read A,$b,4; if (eof(A) ) {close(B);exit;}
(@a)=unpack('C4',$b);
$bo=pack('C4',$a[3],$a[2],$a[1],$a[0]);
print B $bo;
}