If you can't use modules, you should look at ikegami's reply in Fast way to compare two picture-files. You will need to somehow dump the pixels manually and compare them. It will be slow in Perl.