I’m not sure about the basic idea behind Twitter but after signing up, having a little look and noticing the Net::Twitter CPAN module I decided to implement a really bad idea…

#!/usr/bin/perl -w use strict; use warnings; use Net::Twitter; my $bot = Net::Twitter -> new ( username => "username" , password => "password" ); chomp( my $doing = <> ); $doing =~ s/^\s+\d+\s+// ; $bot -> update($doing);