twat.rb

#!/usr/bin/env ruby
# Find common Twitter friends
# Usage: ./twat.rb user1 user2 ...

lists = ARGV.inject({}) do |hash, username|
  page = 1
  friends = []
  while !(output = `curl -s http://twitter.com/statuses/friends/#{username}.xml?page=#{page} | grep "<screen_name>"`.gsub(%r{</?screen_name>}, '').split).empty?
    friends += output
    page += 1
  end
  hash[username] = friends.sort
  hash
end

lists.values.inject { |a, b| a & b }.each { |user| puts user }