my $table1 = "CREATE TABLE table1 (
    pike varchar2(200),
    CodigoEmp varchar2(200),
    NomEmp varchar2(200),
    Apellido varchar2(200), 
    NombrePc varchar2(200),
    DireccionIp varchar2(15),
    email varchar2(200),
    posicion varchar2(200),
    recinto varchar2(200),
    logu varchar2(200),
    Logs varchar2(100)
)";

$dbh->do( $table1 ) or die $dbh->errstr;