my $handle = IO::File->new($filename,'<') or croak ...