Ohne Bezug auf einkommende Verbindungen kann ein Perl-Skript keine darauf bezogenen ICMP-Port-Unreachable erzeugen.
Das wird im Linux-Kernel abgearbeitet.

Einfluß darauf kann mit IPtables genommen werden.

Fazit: Meiner Meinung nach ist das von Dir gewünschte so nicht möglich.