Select Code to Download

#!/usr/bin/env perl

...
open(my $pofh, '>', 'publicKey.dat') or die($!);
print $pofh encode_base64($publicKey, '');
close $pofh;

#!/usr/bin/env perl

...
} else {
    print "Oh no, verification failed! The reason is: ", $auth->lastEr
+ror(), "\n";
}