#!/usr/local/bin/perl
$answer="y";
while($answer eq "y"){
print("Your number is: ");
$valInteger=<STDIN>;
print("You taped: ",$valInteger,"\n");
$valInteger=$valInteger+0;
print("Your number + 0 = ",$valInteger,"\n");
print ("Agin?[y/n] ", "\n");
$answer=<STDIN>;
chop($answer);
}

$value = 1234567890;
print ("first value is ", $value, "\n");
$value = 1234567890123456;
print ("second value is ", $value, "\n");
$value = 12345678901234567890;
print ("third value is ", $value, "\n");
print ('press ENTER to EXIT');
$in = <STDIN>;