print “enter a numbern”;

$in=<STDIN>;

chomp($in);     

$a=0;

$b=1;

print “Printing FIBONACI SERIESn”;

if($in==0 || $in==1)
{
    if($in==0)
    {
        print “invalid input”;
    
    }
    else
    {
        print “0n”;
    }
}
else
{
    print “$an$bn”;
    
    for ($i=0;$i<$in-2;$i++)
    {
        $c=$a+$b;
        $a=$b;
        $b=$c;
        
        print “$cn”;
    }
}