Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}
my $iterator = fibonacci();
print $iterator->(), $/ for 1 .. 20;

sub fibonacci {
    my $fib = shift;
...
}

print fibonacci(0), $/;

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

print fibonacci(20), $/;