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"

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.