#!/usr/bin/perl
use strict;

require Encode::EUCJP1997OPENNEC;

my $file_name = shift;

open my $file, '<', $file_name;
local $/ = undef;
my $file_data = <$file>;

Encode::decode ('euc-jp-1997-open-nec', $file_data, 1);