Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l

...
print $sha1->hexdigest;

system 'sha1sum', $fname;

Select or download this

$ ./840698.pl foo
e242ed3bffccdf271b7fbaf34ed72d089537b42f
e242ed3bffccdf271b7fbaf34ed72d089537b42f
e242ed3bffccdf271b7fbaf34ed72d089537b42f
e242ed3bffccdf271b7fbaf34ed72d089537b42f  foo