in reply to UTF8 issues

Try 
open(INP, '<:utf8',$ARGV[0]) or die...

[download]
Update: See open, open.

In Section Seekers of Perl Wisdom