Basic readline example allows mount of a list of servers

gistfile1.txt

use Term::ReadLine;

my $servers = [
    {
        servidor1 => 'mount /dev/x1 /mount/servidor1',
    },
    {
        servidor2 => 'mount /dev/x2 /mount/servidor2',
    },
    {
        servidor3 => 'mount /dev/x3 /mount/servidor3',
    },
];

my $term    = Term::ReadLine->new('Webdrive mounter');
my $prompt  = "";
my $counter = 0 ;
foreach my $mount_point ( @$servers ) {
    my $mount_name = (keys $mount_point)[0];
    $prompt       .= $counter . ': ' . $mount_name . $servers[$counter]->{ $mount_point } . "\n";
    $counter++;
}

my $OUT    = $term->OUT || \*STDOUT;
while ( defined( $_ = $term->readline( $prompt ) ) ) {
    if ( defined  @$servers[ $_ ] ) {
      my $cmd = @$servers[$_]->{(keys @$servers[$_])[0]};
      print $OUT $cmd;
    } else {
      print $OUT "Erro", "\n";
    }
    warn $@ if $@;
    print $OUT $res, "\n" unless $@;
    $term->addhistory($_) if /\S/;
}