#!/usr/local/bin/perl
print ("Enter the start number:\n");
$start = <STDIN>;
chop ($start);
print ("Enter the end number:\n");
$end = <STDIN>;
chop ($end);
@list = ($start..$end);
$count = 0;
print ("Here is the list:\n");
while ($list[$count] != 0 
	|| $list[$count-1] == -1 ||
	$list[$count+1] == 1) {
	print ("$list[$count]\n");
	$count++;
}
print ('press ENTER to EXIT');
$in = <STDIN>;