#!/usr/bin/perl -w

# twid.pl - by dual
#
# Looks up Twitter ID

use strict;
use LWP::UserAgent;

my $user = shift or die ">>> Need Twitter user name$!";

my $ua   = LWP::UserAgent->new;
my $req  = HTTP::Request->new('GET', "http://twitter.com/$user");
my $res  = $ua->request($req);
die ">>> Twitter user $user not found$!"
  unless $res->is_success();
my $html = $res->content;

$html =~ m|/user_timeline/(\d+)\.rss|;
print "$1\n";