my ($ipfname, $portfname, $resultfname) = @ARGV;

open(my $ipfh, '<', $ipfname) or croak($ERRNO);
open(my $portfh, '<', $portfname) or croak($ERRNO);
open(my $resultfh, '>', $resultfname) or croak($ERRNO);