#!/usr/bin/perl use strict; use warnings; use YAML; use Encode; use Pod::Usage; use Net::Twitter; use File::Spec; use File::HomeDir; use Term::Prompt; use Getopt::Long; use Term::Encoding; our $config; our $twitter; our %args = (); main(); sub main { setup_encoding(); setup_config(); setup_client(); my %commands = ( update => \&update, friends => \&friends, friends_timeline => \&friends_timeline,
