下のように書いているのだけど、ファイルの読み込みができません。
環境はActivePerlです。
#! /usr/bin/perl
use utf8;
use Encode;
use File::Find;

@ARGV = ('.') unless @ARGV;

sub process_file{
$file = $File::Find::name;
open IN, "<encoding(cp932)", "$file" or die;
... 以下略
}

find(\&process_file, @ARGV);