Select Code to Download

sub get16 {
    my $data = shift;
...
     return $data . "\0" x ( 16 - length($data) % 16 );

}

#!/usr/bin/perl
use warnings;
...

exit;