twitter memo

gistfile1.txt

#if ( my $followers = $nt->followers ) {
    #my $target_user = shuffle( @$followers );
    #my $screen_name = $target_user->{screen_name};
    #my $text = shuffle( @nanpa_text );
    my $text = 'test';
    #eval { $text =~ s/name/$screen_name/ };
    #$text = "\@$screen_name " . $text;
    $nt->update( $text );
    warn "$text\n";
#}