#!/usr/bin/perl
$B=0x500;
print "B is ".$B."n";
print "int B is ".int($B)."n";
print "n";
$B='0x500';
print "B is ".$B."n";
print "int B is ".int($B)."n";
print "n";
print "---------------------------------------n";
$B="0x500";
print "B is ".$B."n";
print "int B is ".int($B)."n";
print "---------------------------------------n";
$C="a";
print "C is ".$C."n";
print "int C is ".int($C)."n";
print "---------------------------------------n";