#!/usr/bin/perl

use strict;
use warnings;

eval(q|
sub fibonacci {
        my $index = shift;
        return 0 if $index == 0;
        return 1 if $index == 1;
        return fibonacci( $index - 1 ) + fibonacci( $index - 2 );
}
|);
print "F($ARGV[0]) is ", eval(qq|fibonacci($ARGV[0])|), "\n";