Select Code to Download

#!/usr/bin/perl
use strict;
...
Value: -3 is negative
Negative binary: 11111101111111111111111111111111
Negative_binary back to decimal: -3