$oct= "0765";
    $hex= sprintf "0x%X",oct($oct);

##</code><code>##

    $a= 0xffffffff;     print $a,"\n";
    $a += 1;            print $a,"\n";
    $a += 1;            print $a,"\n";
    $a += 1;            print $a,"\n";
    $a += 1;            print "\t\t",$a,"\n";
    print "non-fract:\t", int($a), "\n";
    printf "unsigned long:\t%u\n", $a;
    print "unsigned long:\t", $a|0, "\n";

##</code><code>##

4294967295
4294967296
4294967297
4294967298
                4294967299
non-fract:      4294967299 # correct
unsigned long:  4294967295 # incorrect
unsigned long:  4294967295 # incorrect