以下のようなプログラムで朝日新聞などから記事をゲットして適当に 画面に表示するようにすればよいでしょう。

#!/usr/local/bin/perl
#
#        $Date: 2003/04/29 10:26:14 $
#        $Revision: 1.1 $
#
push(@INC,'/user/masui/lib/perl');
require 'codeconv.pl';
require 'chat2.pl';

$proxy = "proxy.csl.sony.co.jp";    # 適当に設定
$port = 8080;                       # 適当に設定
$url = "www.asahi.com/flash/flash.html";

sub get {
        local($server,$port,$url) = @_;
        local($s,$r,$status);
        &chat'open_port($server,$port);
# print "GET http://$url\n";
        &chat'print("GET http://$url\n");
        $status = '';
        while(! $done){
                $r = &chat'expect(1000, '[^\n]+\n', '$&',
                        'TIMEOUT','$status = 2',
                        'EOF','$status = 1');
                if($status == 1){
                        return $s;
                }
                elsif($status == 2){
                        return '';
                }
                else {
                        $s .= $r;
                }
        }
}

$html = &jis2ujis(&sjis2jis(&get($proxy,$port,$url)));
@html = split(/[\r\n]+/,$html);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =  localtime;


$dates = $year . "年" . ($mon + 1) . "月" . $mday . "日 " . $hour . ":" . $min;

for $_ (@html){
    s/[\r\n]+$//;
    last if /<.*スポーツ/ ;
    if(/<<<<(.*)>>>>/i){
    } elsif (/^
/) {
         if (/">(.*)<\/a>/i) {
             print "◆ ", $1, "\n";
         }
    }
 }