print "From top level: selection is $choice\n";