#!/usr/bin/perl

print "\nInput first number: ";
$number1 = <STDIN>;
chomp $number1;
print "Input second number: ";
$number2 = <STDIN>;
chomp $number2;

$result = $number2 % $number1;
if ( $number1 > $number2 )
   {
      $result = $number1 % $number2;
   }

$prntxt = "This number not division each other\n";
if ( $result == 0 )
   {
      $prntxt = "This number division each other\n";
   }

print "$prntxt";