_

use HTTP::Tiny;
use Data::Dumper;

my $get = HTTP::Tiny->new->get('http://twitter.com/MyoyoShinnyo/copy-paste-bot-garbage',
			       { max_redirect => 0, },
    );
print Dumper $get->{headers};
$VAR1 = {
          'x-mid' => '6f8ee694d6012587d237ab0aea726412bbae3a26',
          'connection' => 'close',
          'set-cookie' => [
                            'k=10.35.21.138.1361155178152928; path=/; expires=Mon, 25-Feb-13 02:39:38 GMT; domain=.twitter.com',
                            'guest_id=v1%3A136115517816134686; domain=.twitter.com; path=/; expires=Wed, 18-Feb-2015 14:39:38 GMT',
                            '_twitter_sess=BAh7CiIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNo%250ASGFzaHsABjoKQHVzZWR7ADoMY3NyZl9pZCIlODBlZGRmZWQ5OTI3ZDlhOWJm%250AYmJiMDczMTk0ODNiM2E6DnJldHVybl90byI8aHR0cHM6Ly90d2l0dGVyLmNv%250AbS9NeW95b1NoaW5ueW8vY29weS1wYXN0ZS1ib3QtZ2FyYmFnZToPY3JlYXRl%250AZF9hdGwrCLK%252BK%252Bs8AToHaWQiJTA3NjljODA5ZjBmMjcwOTA2YzdmNTZjZWFj%250AOTFiMTE4--9982778f9788c1b835712e6f6e40d755545f4ecd; domain=.twitter.com; path=/; HttpOnly'
                          ],
          'cache-control' => 'no-cache, no-store, must-revalidate, pre-check=0, post-check=0',
          'last-modified' => 'Mon, 18 Feb 2013 02:39:38 GMT',
          'x-transaction' => '04b566ef834b859a',
          'status' => '200 OK',
          'date' => 'Mon, 18 Feb 2013 02:39:38 GMT',
          'vary' => 'Accept-Encoding',
          'strict-transport-security' => 'max-age=631138519',
          'content-length' => '220192',
          'etag' => '"a44cb3ff7b4ba926031b28421c9de7c0"',
          'x-runtime' => '0.45870',
          'x-frame-options' => 'SAMEORIGIN',
          'content-type' => 'text/html; charset=utf-8',
          'pragma' => 'no-cache',
          'x-xss-protection' => '1; mode=block',
          'server' => 'tfe',
          'expires' => 'Tue, 31 Mar 1981 05:00:00 GMT'
        };