Twitterにまとめ記事を上げる処理は、以下のとおり。

#!/usr/bin/perl

require "mimew.pl" ;
use Jcode ;
use XML::TreePP ;
use XML::FeedPP ;
use POSIX qw( strftime ) ;
use HTML::Entities ;

# Twitterの設定
my $twitter_rss = "http://twitter.com/statuses/user_timeline/<フィードの番号>.rss" ;
my $twitter_url = "http://twitter.com/" ;

# サマリ記事の最終日付保存も兼ねた一時保存
my $twitter_summary = "/var/run/.twitter.html" ;

# 記事をMovableTypeに書き込むためのメールの設定
my $prog_sendmail   = "/usr/sbin/qmail-inject" ;
my $mail2entry      = 'MTに投稿するためのメールアドレス' ;
my $mail2entry_from = 'MT投稿のFROMアドレス' ;

my $tw_last = 0 ;

if ( -r "$twitter_summary" ) {
  @tw_stat = stat( "$twitter_summary" ) ;
  $tw_last = $tw_stat[ 9 ] ;
}

# twitterフィードを読み込む
my $twitter = XML::FeedPP->new( $twitter_rss ) ;

my $count = 0 ;
my $subject = "" ;
my $text  = "
\n" ;
my $max_time = 0 ;
my $auther = "" ;

# 各記事をリストアップ
foreach $item ( $twitter->get_item() ) {
  my $ptime  = XML::FeedPP::Util::get_epoch(
                         $item->pubDate() ) ;
  if ( $ptime > $tw_last ) {
    $max_time = $ptime if ( $ptime > $max_time ) ;
    my $pstime = strftime( "%m/%d" ,
                                      localtime( $ptime ) ) ;
    my $title  = Jcode->new(
            HTML::Entities::decode( $item->title() ) )->euc ;
    my $link   = $item->link() ;
    my $url    = "" ;
    $title =~ s//>/g ;
    $title =~ s/&/&/g ;
    if ( $title =~ s/^(\w+):\s+// ) {
      $auther = $1 ;
    }
    if ( $title =~ /^(.*)\s+((http|https):\/\/\S+)$/ ) {
      ($title,$url) = ($1,$2) ;
      $title = "[メモ]" if ( $title eq "" ) ;
      $url = " / → <a href=\"$url\">$url</a>" ;
    }
    $text .= "<li&gt;$pstime <a href=\"$url\">$title</a&"
                ."\gt;$url</li>\n" ;
    $count++ ;
  }
}
$text .= "
\n" ;

$subject = "$auther のつぶやき"
  ."(".strftime( "%m/%d" , localtime( $max_time ) ).")" ;

# 一応ファイルに保存
open( FH , ">$twitter_summary" ) or die( "Can't open file $twitter_summary\n" ) ;
if ( $count > 0 ) {
  print FH "
$subject
\n" ;
  print FH $text ;
}
close( FH ) ;

# メールで送る
if ( $count > 0 ) {
  open( MAIL , "| $prog_sendmail" )
    or die( "Can't open program $prog_sendmail\n" ) ;
  $subject = mimeencode( Jcode->new( $subject )->jis ) ;
  $text = Jcode->new( $text )->jis ;
  print MAIL
    "From: $mail2entry_from\n"
    ."To: $mail2entry\n"
    ."Subject: $subject\n"
    ."Content-Type: text/html; charset=ISO-2022-JP\n"
    ."Content-Transfer-Encoding: 7bit\n\n"
    ."$text" ;
  close( MAIL ) ;
}