Try writing a very small script that works. Extend it in small steps until it does what you want, where you run it each time you have added a line.

You could start with this one:

use strict;
use warnings;

sub fireball {
  my $bias = shift;
  print "Bias: $bias\n";
}

fireball(2);
[download]