smirn0v

openssl s_client -crlf -connect imap.gmail.com:993
tag login user@gmail.com passwordhere
tag list "" "*"
tag select "inbox"
tag fetch 1:3 body[header]
tag fetch 3 body[header]
tag fetch 3 body[text]
tag fetch 2 all
tag fetch 2 fast
tag fetch 2 full

smirn0v

#!/usr/bin/env perl

use strict;
use warnings;
use autodie qw(:all);

my $str = do { local $/; <STDIN> };
$str =~ s/[^0-9a-fA-F]//gm;
$str = pack('H*', $str);