package CMQIA; use strict; use warnings; sub run { print " Welcome to the Casio-Maxim Quadrilateral Identification\n Algorithm. In order to identify said quadrilateral,\n you must have the coordinates of all 4 vertices.\n"; print " When you are ready to input your coordines, type\n 'ready.' Type anything else to exit the CMQIA.\n\n"; my $Choice = ; chomp $Choice; if ($Choice =~ /ready/i) { maxim();} else { Unit6::run();} } sub maxim { print "\nFor shape ABCD, in which point A has coordinates (X1, Y1), B has coordinates\n\n(X2, Y2), C has coordinates (X3, Y3), and D has coordinates (X4, Y4),\n\nX1 = "; my $AX = ; chomp $AX; print "Y1 = \n"; my $AY = ; chomp $AY; print "X2 = \n"; # etc } 1;