#!C:\\Perl\\bin\\perl.exe
@INC=("C:/xampp/htdocs/「適当に」/cgi",@INC);
use strict;
use Digest::SHA1 qw(sha1 sha1_hex);
my $test='a';
print "$test \n\n";
print sha1_hex($test);
実行結果:
C:\xampp\htdocs\「適当に」\cgi>sha1.pl
a
86f7e437faa5a7fce15d1ddcb9eaeaea377667b8