I need help with perl?

[bluephoenix96]

I need a perl code that will recognize what type of file is a file.
For example:if I give a file named test.exe it will recognize that this file is an executable one.
I want a perl code/script for that.