for my $data ( 250 .. 260 ) { 
    my $packed = pack 'c', $data;
    printf "%X => %X\n", $data, $packed;
}