#!/bin/env perl

use warnings;
use strict;

use Digest::SHA1 "sha1_hex";

my $tmp = sha1_hex("hello");
print "SHA1 = " . $tmp . "\n";