Just a little coment about -s $file... it doesn't work as it should if you're running Windows (the file size is only updated when you close the file handle).

acid06
perl -e "print pack('h*', 16369646), scalar reverse $="