Select Code to Download

#!/usr/bin/perl -w

...
{
    $_[0]>0 ? deep($_[0]-1) : "done\n";
}

#!/usr/bin/perl -w

...
print fib($n)."\ncount = $count\n";

sub fib { $count++; $_[0]<2 ? 1 : fib($_[0]-2) + fib($_[0]-1) }