print(qq(enter marks in maths), \n);
$math=<STDIN>;
print(qq(enter marks in science),\n);
$sci=<STDIN>;
print(qq(enter marks in history),\n);
$hist=<STDIN>;
print(qq(enter marks in geography),\n);
$geo=<STDIN>; 
$sum=($math+$sci+$hist+$geo);
$per=($sum/400);
$percentage=($per*100);
print(qq(your percentage is=), $percentage);
##</code><code>##

<enter marks in mathsSCALAR<0X124DA44>>