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