#!/usr/bin/perl
use strict;
my $passw = "birthday";
print crypt($passw,"SALT");