#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;

my $host = "gopher.floodgap.com";
my $port = 70;
my $selector = ""; # empty means root menu

my $sock = IO::Socket::INET->new(
    PeerHost => $host,
    PeerPort => $port,
    Proto    => "tcp",
    Timeout  => 5,
) or die "Cannot connect\n";

# Send selector + CRLF
print $sock "$selector\r\n";

while (my $line = <$sock>) {
    chomp $line;
    last if $line eq "."; # end of menu

    my ($type, $rest) = ($line =~ /^(.)(.*)$/);
    my ($label, $sel, $h, $p) = split /\t/, $rest;

    printf "[%s] %s\n", type_name($type), $label;
}

close $sock;

sub type_name {
    return {
        '0' => 'TEXT',
        '1' => 'MENU',
        '7' => 'SEARCH',
        '9' => 'BINARY',
        'g' => 'GIF',
        'I' => 'IMAGE',
    }->{$_[0]} || "OTHER";
}