Sheesh, I would think that even any beginner in Perl should be able to tackle this. The tasks you have to do:

1. read the first few bytes of the file (at least 4 bytes) into a string
2. see if the string starts with '%PDF'