Perl password crypt

#!/usr/bin/perl
chomp($line=<STDIN>);
$s=crypt($line,salt);
if ( $s eq 'saUc1YKRDDT5E' )
{
print "You have cracked the code Boss :) \n";
 }



Usage:

perl filename sam