# simple useage
use Authen::Krb5::Easy;

my ($user, $password) = @ARGV;
if ( Authen::Krb5::Easy::kinit( $user, $password ) ) {
  print "Authentication success!$/";
} else {
  print "Authentication failure!$/";
}