#!/usr/local/bin/perl -w
printf "USERNAME:";
$uname = <STDIN>;
chomp $uname;
printf "ENCPWD:";
$cryptpass = <STDIN>;
chomp $cryptpass;
system("/usr/local/bin/change $uname $cryptpass > /dev/null");