1#!/usr/bin/env perl
2
3# short script to check compatability with previous Authen::SASL library
4
5use lib 'lib';
6use Authen::SASL;
7
8my $sasl = Authen::SASL->new('CRAM-MD5', password => 'fred');
9
10$sasl->user('gbarr');
11
12$initial = $sasl->initial;
13$mech = $sasl->name;
14
15print "$mech;", unpack("H*",$initial),";\n";
16
17print unpack "H*", $sasl->challenge('xyz');
18print "\n";
19