Select Code to Download

my $one = 8;
my $two = 2;
...
# 00001000 (binary 8) becomes 00000010 (binary 2)

print $one >> $two;    # prints 2