A quick and dirty command line OAuth example that shows how to use acquire and fetch a refresh token in Perl with LWP