[PERL] Simuler touche clavier

#!/usr/bin/perl
use strict;use warnings;
use Term::ReadKey;#voir http://search.cpan.org/dist/TermReadKey/ReadKey.pm

ReadMode 4;
print "Press any key to continue...\n";
while (not defined (ReadKey(-1))) {}
ReadMode 0;

#!/usr/bin/perl 

use strict;use warnings; 
use Net::Telnet; 
use Term::ReadKey;
my $Ligne; 
my @tab; 
my $base; 
$base= "C:\\chemin\database_switch2.txt"; #chemin vers un fichier contenant les switch (hostname et ip) 

open (BASE,"$base" ) or die "can't open file\n"; 

while ($Ligne=<BASE>) 
{ my ($nom, $ip); 

  if($Ligne =~ /(.*);(.*);/) {
    push @tab, $1, $2; 
    ($nom,$ip) = ($1,$2); 
    print ("\nHost : $nom\nIP : $ip\n" ); # test 
  } else { 
    print("Erreur lecture de ligne : $.\n" ); 
  } 

  my $switch_ip = $ip; 
  my $switch_port = 23; 
  my $telnet_session; 

# ouverture de connexion telnet et copie du fichier de config 

  $telnet_session= new Net::Telnet ('Errmode' => 'return','Timeout' => 5); 
  if (not defined $telnet_session) { 
    &print_error("Connect Telnet Session - IP: $switch_ip PORT: $switch_port\n"); 
    return (1); 
 } 

  $telnet_session->open(
                                  'Timeout' => 5, 
                                  'Errmode' => 'return', 
                                  'Host'    => $switch_ip, 
                                  'Port'    => $switch_port
   ) or die "connexion au switch $switch_ip echoue\n"; 

# c'est a ce niveau que l'appui sur une touche est demandé (avant la demande de login) 
  ReadMode 4;
  print "Press any key to continue...\n";
  while (not defined (ReadKey(-1))) {}
  ReadMode 0;

  $telnet_session->print('\nAdministrateur'); 
  $telnet_session->print('xxxxx'); 

  my @lines = $telnet_session->cmd("copy startup-config tftp 172.16.x.x $nom.txt"); 
  $telnet_session->close; 
} 

close (BASE);

$telnet_session->login($username, $passwd);