#!/usr/bin/perl

# $sum = sum_file( $file )
sub sum_file {
    my $file = shift;
    open SUM, "<$file"
        or die "Cannot open $file ($!)";

    my $sum;
    local $/;

    $sum = unpack( "%32C*", <SUM> );

    close SUM;

    return $sum;
}

$file = shift;
print sum_file($file), "\n";