Select Code to Download

print "please enter one character: ";
$char = <>;
...

print "The number of a is $count\n";
print "done";