print "How much is A:";
my $a=<STDIN>;
chomp $a;
print " A=$a";