#!/usr/bin/perl
use warnings;
use strict;
our $b;
our $n;
sub fib{
$n = @_;
my $a = 0;
$b = 1;
while ($b < $n) {
print "$b ";
$a = $b;
$b = $a+$b;
}

}

fib(1000);