[mirrors/Programs.git] / perl / input.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Digest::MD5;
my $in = <>;
chop($in);
print Digest::MD5->md5_hex($in)."\n";
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Digest::MD5;
	5	my $in = <>;
	6	chop($in);
	7	print Digest::MD5->md5_hex($in)."\n";
	8