Select Code to Download

use strict;
use warnings;
...
sub unsigned_shift {
    return $_[0] >> $_[1];
}

use Data::Dumper;

...
    use integer;
    return $_[0] >> $_[1];
}

package Number;

...
my $n = new Number(-4);
print $n >> 2;