#!/usr/bin/env perl

use strict;
use Crypt::SaltedHash;

print "Enter plain-text password ?> ";
chomp(my $plain_text = <>);


my $csh = Crypt::SaltedHash->new(algorithm => 'SHA-1');
$csh->add($plain_text);
my $salted = $csh->generate;

print "Result: $salted\n";