#!/usr/bin/perl --
use strict;
use warnings;
use Pashnoid::Fire;
my @ok_ports = Pashnoid::Fire->get_ports();
...