#!/usr/bin/perl -w
use strict;

my $text = $ARGV[0] || "";
my $salt = $ARGV[1] || "";

print "$text $salt\n";

print crypt($text, $salt), "\n";