вот все видели в в любом сниффере сбоку от самих пакетов вида:
столбик где точеки всякие, буковки)))

так вот, есть саба:
sub print_data() {
my ($data)=@_;
my $i=0;
foreach(split(//,$data)) {
print unpack('H8',$_)." ";
$i++;
if ($i eq 16) {
print "\n";
$i=0;}}}

а как в эту сабу добавить этображение этих самых точечек, буковок
скажите пожалуйсто