Select Code to Download

#!/usr/bin/perl

use strict;
...
bin_test_print($x);
$x = rshift($x, 2);
bin_test_print($x);

use strict;
use warnings 'all';

...
    my $base64_utf16 = MIME::Base64::encode($utf16);
    return $base64_utf16;
}