RosettaCodeData/Task/Sockets/Perl-6/sockets.pl6

my $host = '127.0.0.1';
my $port = 256;

my $client = IO::Socket::INET.new(:$host, :$port);
$client.print( 'hello socket world' );
$client.close;
all tasks 2013-04-11 01:07:29 -07:00			`my $host = '127.0.0.1';`
			`my $port = 256;`

			`my $client = IO::Socket::INET.new(:$host, :$port);`
2016 Update 2016-12-05 22:15:40 +01:00			`$client.print( 'hello socket world' );`
all tasks 2013-04-11 01:07:29 -07:00			`$client.close;`