Réécrire du Basic en Perl

CLS
	GOSUB AnaLyseLigneCommande
	'''NumeroBouee$ = "5832"
	bavard1 = 0
	lent = 0
	'''archiv = UCASE$(LTRIM$(RTRIM$(COMMAND$))) = "ARC"
	'''Nomfic$ = "PRV.TMP"
	GOSUB Init
	Nf$ = NumeroBouee$ + ".INF"
	IF (NOT (ExisteFichier(Nf$))) THEN
	     TypeAbort = 3
	     GOSUB AbortProgramme
	END IF
	LireDonnees "WAV.DAT", Nf$, TI, LB, INfd, archiv '"WAV.DAT" modifi‚ !y2k
	LireTableauAffic "RESULT", TR '"RESULT" modifi‚ !y2k
	jolicadre Nbouee&, 2, 27
	IF (archiv) THEN
	     NomficDon$ = "archiv4.dat"
	     Nomficarc$ = "W" + NumeroBouee$ + " .ARC"
	     NomFicASCII$ = "W" + NumeroBouee$ + ".DON"
	     ArchivesPRVArgos NomficDon$, Nomficarc$, NomFicASCII$, TR, INfd
	     CLS
	     jolicadre Nbouee&, 2, 27
	     VoirFicArchives Nbouee&, TI, TR, INfd
	     ListBoxresult LB, TR, "PRVARC.IMP", INfd, Nbouee&, archiv
	  ELSE
	    DecPRVWave Nomfic$, nexp, Nbouee&, TI, TR, INfd, 0
	    ListBoxresult LB, TR, "PRVTMP.IMP", INfd, Nbouee&, archiv
	END IF
	COLOR 15, 0
	CLS
     END

use Net::Telnet() ;

$olog = "o.log" ;
$ilog = "i.log" ;

$machine = "netdis.cls.fr" ;
$user = "mandar" ;
$pwd = "houlograf" ;
$p1 = "/.*ername.*/" ;
$p2 = "/.*sword.*/" ;
$cmd = "prv,1450,ds,240" ;
$prompt = '/^\/.*/' ;
$prompt = '/\//' ;

$tel = new Net::Telnet (Prompt => $prompt);
$tel->output_log($olog) ;
$tel->input_log($ilog) ;

$tel->open(Host => $machine) ;
$ok = $tel->waitfor($p1) ;
$tel->print($user) ;
$tel->waitfor($p2) ;
$tel->print($pwd) ;

$tel->waitfor("/ARGOS READY.*/") ;
$tel->waitfor($prompt) ;
@res = $tel->cmd($cmd) ;
$tel->waitfor("/\/.*/") ;
$tel->cmd("logout") ;

print "Et attention...\n" ;
foreach $lig (@res) {
       print $lig ;
      #et le traitement de mes données...........................