You can't verify it with perl, but i think there are possibilities with client-side methods such as javascript, java or flash, but who wants that... :)

I don't know if it gives the results you want, but you may want to look at those.