1#! /usr/bin/perl 2# $OpenBSD: fibo.pl,v 1.2 2001/01/29 02:05:59 niklas Exp $ 3 4my $n=shift; 5 6$fibo[0] = 'a'; 7$fibo[1] = 'b'; 8for (my $i = 2; $i <= $n; $i++) { 9 $fibo[$i] = $fibo[$i-1].$fibo[$i-2]; 10} 11 12print $fibo[$n], "\n"; 13 14