Arthurmourao

#! /usr/bin/perl 

use IO::Socket::INET;

 $client = IO::Socket::INET->new(
 	PeerAddr=>"localhost",   # host do server o server está listening
        PeerPort  => "8081",     # porta em que 
        Timeout   => 60);	 # timeout de conexao

open (FILE,"<","testeSplit.txt");

Arthurmourao

#! /usr/bin/perl			


 use IO::Socket::INET;

 print "Server ON";

 $server = IO::Socket::INET->new(
 		LocalAddr=>"localhost",	# host
 		LocalPort=> "8081",	# porta que vai ficar em listening

Arthurmourao

package montadora;

public abstract class Carros {
	 
private String description = "Veiculo";
private String modelN = "Nacional";
private String modelI = "Importado";

public void setmodelN(String mNacional) {
	modelN = mNacional;