#!/usr/local/bin/perl

print("Enter the integer to be divided:\n");
$dividend = <STDIN>;
print("Enter the integer to divide by:\n");
$divisor = <STDIN>;
# check for division by zero
if ($divisor == 0) {
        print("error: can't divide by zero\n");
} else {
        $quotient = $dividend / $divisor;
        $remainder = $dividend % $divisor;
        print("The result is $quotient\n");
        print("The remainder is $remainder\n");
}
