Help for this page

Select Code to Download

Select or download this

sub file2sha1 {
    my $file = $_[ 0 ];
...
    return $sha1->digest;
}