#!/usr/bin/perl -w

use strict;

my $num1;
my $num2;

print "Enter in a whole number: ";
chomp ($num1 = <STDIN>);

print "Enter in another whole number: ";
chomp ($num2 = <STDIN>);
print "\n";

foreach ( $num1 .. $num2 ) {
  print "$_ ";
  print "\n" if ( $_ == ($num1 +4) );
  }