Select Code to Download

use URI;
use Web::Scraper;
...
    my $date = strftime('%b %d', localtime $tweet->{time});
    print "\n$tweet->{name} tweeted on $date:\n  $tweet->{text}\n";
}

use My::Query qw(register_query);

...
    my $date = strftime('%b %d', localtime $tweet->{time});
    print "\n$tweet->{name} tweeted on $date:\n  $tweet->{text}\n";
}

$ ./recent-tweets.pl TimToady

...

Larry Wall tweeted on Feb 03:
  Wow. Just...wow. #sb48