String Perl

$text = "Hello";
$encrypted = crypt $text, "AB";
print $encrypted;