Select Code to Download

#!/usr/bin/perl -w
use strict;
CHOICE: print "
...
if($Choice =~ /quit/i) {print "\nBye.\n\n"; exit;}
if($Choice =~ /quads/i) {require "Quadrilaterals.pl";}
if($Choice =~ /crazy maxim/i) {require "CMQIA.pl";}

 #!/usr/bin/perl -w
use strict;
ORIGINAL: print "
...
my $AX = <STDIN>;
chomp $AX;
…