foreach ( 0200.. 0377)
{
        print chr(oct($_))." ".$_."\n";
}