#!/usr/bin/perl my $HIGH_BITS = 0xFFFFFFFF << 28; print( $HIGH_BITS );