#!/usr/bin/perl
use Socket;
require 'tv.cfg';

for my $host ( keys %televisions ) {
        my $port = $televisions{$host};
        my $proto = getprotobyname('tcp');
        socket(SOCK, PF_INET, SOCK_STREAM, $proto);
        my $sin = sockaddr_in($port, inet_aton($host));
        connect(SOCK, $sin) || die "$host is dead !\n";

        my $header = <SOCK>;
        print "$header\n";
        exit unless($header=~m/200|OK/);

        close SOCK;
};

Can someone help me or advice me where to look out for more information to get some data from the streaming video server?