#!/usr/bin/perl -w
use strict;

my $input = 0xEF; #this is 239 in decimal
my $mask = 0xFF;

printf ("%X\n", $input<<1 & $mask);
# prints DE which means 222 in decimal