print “Program to generate Fibonacci series\n”;
print “Enter the number of terms in the series:”;

	$n=<STDIN>;
	$count=2;
	Print “\n The Fibonacci series is:”;
	print “$a\n$b”;
	$fib=0;
	while($n>$count)
	{
		$fib=$a+$b;
		print $fib.”\n”;
		$a=$b;
		$b=$fib;
		$count++;
	}