Select Code to Download

#!/usr/bin/perl -w

...
   print "string match\n" if ( $compare eq 0 );
   print "number match\n" if ( $compare == 0 );
}