+++ /dev/null
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use MIME::Base32 qw(RFC); #libmime-base32-perl
-
-my $test;
-open(RND, "/dev/urandom");
-sysread(RND, $test, 10) == 10 || die "read randon data failed\n";
-print MIME::Base32::encode($test) . "\n";
-