#!/user/bin/perl

use strict;
use warnings;

print "Welcome to the mathq program\n";

while (1) {
    print "Enter a number\n";
    chomp(my $n = <STDIN>);
    die "Goodbye\n" if $n eq 'q';
    chomp(my $m = <STDIN>);
    print "$n + $m = ", $n+$m, "\n",
          "$n - $m = ", $n-$m, "\n",
          "$n x $m = ", $n*$m, "\n",
      $m == 0 ? '' :
         ("$n / $m = ", $n/$m), "\n";
}

__END__