use strict;
use English;

my $file = <windows path which recieved the input file>/filename.txt
local $/ = undef;
open(FILE, $file) or die "Can't open '$file': $!";
binmode(FILE);
my $data = <FILE>;
close FILE;

my $cksum = unpack("%32C*",$data);
print "|$cksum|\n";