use strict;
use warnings;
use feature 'say';

use Sereal   qw/ encode_sereal decode_sereal /;
use Storable qw/ freeze thaw /;

say 'Storable: ', ${ thaw 
                     freeze 
                     \substr 'abc', 0 };
say 'Sereal: ',   ${ decode_sereal 
                     encode_sereal 
                     \substr 'abc', 0 };

__END__

>perl 180524.pl
Use of uninitialized value in say at 180524.pl line 8.
Storable:
Sereal: abc