#!/usr/bin/perl 
my $pw   = 'secret'; 
my $salt = 'sa'l
print crypt($pw, $salt);