Foro - Perl en Español

Hola, compañeros, me gustaría saber cómo hago este script menos iterativo. El profesor me pide que solo reciba root y el usuario. Lo demás se debe de ejecutar en el script. Ver adjunto.

#! /usr/bin/perl

use strict;
my $usrinput;
my $routeftp;
my $routearchivo;

print("\n***********************************************\n\n");
print("\n***********************************************\n\n");
print("\n**************** Kickstart*********************\n\n");
print("\n***********************************************\n\n");
print("\n***********************************************\n\n");

print ksconf "#*********************Kickstart creado con un script******************\n\n";

print "Ingrese la ruta y nombre del archivo kickstart a establecer: \n";
$routearchivo=<>;
chomp($routearchivo);
open(ksconf,">>","$routearchivo")
or die("Archivo no creado");

print "Ingrese la ruta del servidor FTP";
$routeftp=<>;
chomp($routeftp);
print ksconf "url --url=\"$routeftp\" \n";
print ksconf "lang en_US.UTF-8 \n";
print ksconf "keyboard us\n";

print "Ingrese la clave del root: ";
$usrinput=<>;
chomp($usrinput);
print "\n\nArchivo kickstart establecido en la ruta especificada\n\n"

Bienvenido a los foros de Perl en Español, edwardmorfa.

No entiendo mucho la pregunta. ¿A qué te refieres con iterativo? ¿Que se repite mucho o que da muchas vueltas?

Gracias, amigo, soy nuevo en Perl.

El profesor me dice que el código sea menos iterativo, es decir: que no interactúe mucho con el usuario introduciendo datos por el command prompt, etc.

El dijo que solo la clave y el usuario deben ser iterativo, o sea, que el usuario lo introduzca.

Bueno, el resto de datos se pueden entregar como argumentos al programa. Algo así:

programa.pl ruta/al/archivo servidor.ftp.com

Desde el programa, los lees desde el array especial @ARGV.