#!/usr/bin/perl
# Usage: perl_crypt password salt

my $encrypted_string = crypt(shift,shift);

print "Encrypted version: $encrypted_string\n";