#!/usr/bin/perl -w

$count = 0;
my $n = ($ARGV[0] < 1) ? 1 : $ARGV[0];
print fib($n)."\ncount = $count\n";

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