Windows users might want to add the line binmode IMAGE; before the line print IMAGE $blob;