Trying and failing to trip Email::Simple::Header's folding and unfolding routines

rindtroup.pl

#!perl

use strict;
use warnings;
use 5.010;
use Carp;

use Data::Dumper;
use Email::Simple::Header;

my $string = 'To: msldkfmsdlkfm@sdkfjldskfjldksf.dff lsdkjflsdkjflskdjflsdf@zledflksdjfvdsf.sdf'."\012\015";

my $header = Email::Simple::Header->new(\$string);
print $header->_fold($string,
                     { at => 60 });
print Dumper($header->{headers});
$header->header($header->_fold($string,
                               { at => 60 }));
say $header->as_string;
print Dumper($header->{headers});