[Perl] Firma sha-1

[Salman ®]

Saludos a tod en s

Necesito generar una firma SHA-1 a partir de unos determinados datos, el caso es que llevo toda la semana pasada buscando informacion al respecto y no encuentro la orden apropiada.

He conseguido la orden en PHP, pero en PERL nada :-(

¿ Alguna idea de donde buscar ?

La orden en PHP seria:

<?PHP
$variable1="1234";
$variable2="PepitoPerez";
$clave="qwertyasdf0123456789";

$Cadena_Base_Firma = $variable1.$variable2.$clave;
$Firma = strtoupper(sha1($Cadena_Base_Firma));
echo "$Firma";

?>

Y necesito eso mismo pero dentro de un script en PERL, la firma en cuestion es para una pasarela de pagos virtual de Servired en España.

----------
Salvador Guzmán
Salman PSL
Vigo, Galicia, España
+34 986-21.30.27
Móvil  679-Salman
Correo @Salman.ES
www.Salman.ES