#!/usr/bin/perl -w
use strict;

sub fibonacci {
    my ($low, $high) = (1, 0);
    return sub {
        ($low, $high) = ($high, $low + $high);
        return $high;
    };
}
my $iterator = fibonacci();
print $iterator->(), $/ for 1 .. 20;