Dificuldades em Programa Perl

Pessoal, saber fazer eu sei, sendo q com esse laço sem fim não sei com fazer. Ele quer q solicite infinitas vezes as opções. Precisava de uma luz de como fazer esse laço.

A forma de como fazer o programa está logo abaixo.

Gerar arquivo de configuração de forma automática para o IPTABLES.
O arquivo de saída deve ser semelhante a:

iptables –F
iptables –A OUTPUT –s 127.0.0.1 –d 127.0.0.1 –j ACCEPT

iptables –A INPUT –p udp –dport 53 –d 192.168.0.201 –j ACCEPT
iptables –A FORWARD –p udp --dport 53 –s 192.168.0.201 –j ACCEPT
iptables –A FORWARD –p udp --dport 53 –d 192.168.0.201 –j ACCEPT
iptables –A OUTPUT –p udp --sport 53 –s 192.168.0.201 –j ACCEPT

iptables –A INPUT –j DROP
iptables –A FORWARD –j DROP
iptables –A OUTPUT –j DROP

O primeiro e o terceiro bloco são fixos e no bloco do meio deve ser
solicitado ao usuário o protocolo de transporte (tcp ou udp), a porta do serviço,
o IP da máquina tantas vezes quantas forem as regras desejadas para o
usuário. Deve ser gerado um arquivo texto contendo as regras criadas.

Obg.