perl -e "read(JPEG, $buf, 4); print 1 if $buf == '\37723323';"