require DBI;
    my $dbh = DBI->connect("DBI:CSV:f_dir=/etc;csv_eol=\n;"
                           . "csv_sep_char=:;csv_quote_char=;"
                           . "csv_escape_char=");
    $dbh->{'csv_tables'}->{'passwd'} = {
        'col_names' => ["login", "password", "uid", "gid", "realname",
                        "directory", "shell"]
    };
    $sth = $dbh->prepare("SELECT * FROM passwd");

use SNMP;
use snmpUtils;
use File::Copy;

#Realizamos la etapa de preparación de la sentencia
        my $sth = $dbh->prepare("SELECT idups,nombre,idsitio,ip,vendor,snmpro,modelo,estado,host,idcliente,usuario,password,fecha_add,fecha_kill,umbral_carga,trespaldo FROM ups;");
        #Realizamos la etapa de ejecución de la sentencia
                $sth->execute();
#------------------------------
#Realizamos la etapa de extracción de datos. Imprimimos dato a dato.
        while ( @tupla=$sth->fetchrow_array())
        {
              my $s = @tupla [0];
                        my $s1 =@tupla [1];
                                my $s2 =@tupla [2];
                                        my $s3 =@tupla [3];
                                                my $s4 =@tupla [4];
                                                        my $s5 =@tupla [5];
                                                                my $s6 =@tupla [6];
                #Para separar por : y guardar en una sola variable
               
                my $s7 ="$s:$s1:$s2:$s3:$s4:$s5:$s6";         
                print "--------------\n";
                print "$s7\n";   
                open (Dat,">>$tabla.dat");
               print Dat "$s7\n$h";
                close(Dat);
#-----------------------------------------------------------------
        my $file;
                open my $file, '<', "tabla.dat" or die("No se pudo abrir archivo");
                        my $texto = do { local $/; <$file> };
                        close $file;
                        print "-------------------------------------\n";
                        print $texto;