my $s = pack("C11", (65..75)); 
my @test = unpack("C11", $s);
print join(' : ', map {chr()} @test);