# Perl Bouncer..

my $lower_bound = -100;
my $upper_bound = 100;
my $rate = 10;

my $counter = $lower_bound;

while (1) {
	while ( $counter < $upper_bound ) {
		$counter += $rate;
		print "$counter\n";
	};
	while ( $counter > $lower_bound ) {
		$counter -= $rate;
		print "$counter\n";
	};
};


