Select Code to Download

    my $i = int(rand(length($str)-1));

sub pack_str {
    my ( $s ) = @_;

    return pack 'B*', $s;
    }