#!/usr/bin/perl

# $sum = suma_pliku( $plik )
sub sum {
    my $plik = shift;
    open SUM, "<$plik"
        or die "Nie mozna otworzyc $plik ($!)";

    my $sum;
    local $/;

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

    close SUM;

    return $sum;
}

$plik = shift;
print suma_pliku($plik), "\n";
