use strict;
use warnings;
my $bin_val;
my $dec_val;
my @temp_reference_value = ("11111111111111111111111111111111", "1111111111111111111111111111111");

for(my $i=0; $i<=$#temp_reference_value; $i++ )
{
	$dec_val = oct("$temp_reference_value[$i]");
	$bin_val = sprintf('0x%x', $dec_val) if($dec_val); 
	print "Bin value $temp_reference_value[$i] and Hex value is $bin_val \n"; 
}

##</code><code>##

Integer overflow in octal number at bintohex.pl line 11.
Octal number > 037777777777 non-portable at bintohex.pl line 11.
Bin value 11111111111111111111111111111111 and Hex value is 0xffffffff
Integer overflow in octal number at bintohex.pl line 11.
Octal number > 037777777777 non-portable at bintohex.pl line 11.
Bin value 1111111111111111111111111111111 and Hex value is 0xffffffff