#!c:\Dwimperl\perl\bin\perl.exe

use strict;
use warnings;

#### prompt a user to enter an integer
print "Enter an integer ";
my $integer = <STDIN>;
chomp $integer;

my $i = 199;

### use either a while loop or an until loop to count down from 199 to 99
while($i >= 99){
     ### display all multiples of the integer

     print $i - $integer . "\n"; 
     --$i;	
}