ssh

#!/usr/bin/env perl

use 5.14.0;
use DBI;

my %attr = ( PrintError => 0, RaiseError => 0 );
my $dbh = DBI->connect( "dbi:SQLite:dbname=servidores.db", "", "\%attr" )
  or err_handle();

say "Escolha uma opção:";
say "(1) Conectar-se a um Servidor.";
say "(2) Consultar Servidores Cadastrados.";
say "(3) Cadastrar um novo Servidor.";
say "(4) Alterar um Servidor.";
say "(5) Excluir um Servidor.";
say "(6) Sair do sistema.";
say "";
print "Digite sua opção: ";

my $usuario;
my $cliente;

while (<STDIN>) {

    chomp( my $opcao = $_ );

    unless ( $opcao == 1
        or $opcao == 2
        or $opcao == 3
        or $opcao == 4
        or $opcao == 5
        or $opcao == 6 )

    {

        say
"A opção digitada não é uma opção válida! Por favor escolha uma opção entre (1) e (6):";

    }

    elsif ( $opcao == 1 ) {

        print "Digite o código do Cliente: ";
        chomp( my $codigo = <STDIN> );

        my $select = " SELECT * FROM servidores WHERE codigo = $codigo";
        my $sth    = $dbh->prepare($select);
        $sth->execute or err_handle();

        while ( my $data = $sth->fetchrow_hashref ) {

            $usuario = $data->{usuario};
            $cliente = $data->{endereco};

            last;
        }

    }
    say "Meu Usuario => $usuario";
    say "Meu Cliente => $cliente";
    my $ssh = `ssh $usuario\@$cliente`;
    system("$ssh");

}