use warnings; 
use strict;

print "Enter the number you would like to see in the sequence: ";
my $number = <STDIN>;

print(fibonacci($number), "\n");