use strict;
use Convert::EBCDIC qw(ebcdic2ascii);

my $ascii_string;

open EBCDIC, "C:\\EDCDICFILE";
    $ascii_string = ebcdic2ascii(<EBCDIC>);
    print $ascii_string;
close EBCDIC;