#!/user/bin/perl
use strict;
use warnings;

print "Welcome to the math program\n";
while (1) {
    print "Enter a number (or q to quit)\n";
    my $first_number = <STDIN>;
    chomp ($first_number);
    die "Goodbye!\n" if $first_number eq 'q';

    print "Enter a second number\n";
    my $second_number = <STDIN>;
    chomp ($second_number);
    
    print "$first_number $_ $second_number = ", eval "$first_number $_ $second_number", "\n"
        for $second_number != 0 ? qw(+ - * /) : qw(+ - *);
}