consumer.pl �"_{$V ��{$V #!/usr/bin/perl use strict; use warnings; use utf8; use Mojolicious::Lite; use OAuth::Lite::Consumer; use XML::Atom::Feed; use XML::Atom::Entry; use URI::Escape qw/uri_escape_utf8/; use Encode qw/decode_utf8/; my $origin = 'http://localhost:3000'; my $consumer_key = '__consumer_key__'; my $consumer_secret = '__consumer_secret__'; my $consumer = OAuth::Lite::Consumer->new(