#!/usr/bin/env perl6

my $h = '127.0.0.1';
my $p = '6379';

#say join ' ', IO::Socket::INET.^methods;

my  $s = IO::Socket::INET.new( :$h, :$p ) or die();
#my $s = IO::Socket::INET.new( :{ 'host' => $h,' port' => $p } ) or die();

$s.send( "info\r\n" );

say $s.recv();