#!/usr/bin/perl

sub fib($) {
	($max) = @_;
	$a = 0;	
	$b = 1;
	while ($b < $max) {
		print "$b ";
		$b = $b + $a; 
		$a = $b - $a;
	}
}

&fib(100);