sub get-page($host, $req) {
    my $sock = IO::Socket::INET.new(host => $host, port => 70);
    LEAVE $sock.close;
    $sock.print("\r\n");
    my $buff = '';
    loop {
	my $data = $sock.recv(1024);
	$buff ~= $data;
	last unless $data;
    }
    $buff;
}

drew@devuan:~$ perl6 gopher_radio.pl6
Too many positional parameters passed; got 2 but expected 1
  in method print at gen/parrot/CORE.setting:1023
  in sub get-page at gopher_radio.pl6:3
  in sub get-songs at gopher_radio.pl6:15
  in block  at gopher_radio.pl6:52