Select Code to Download

#!/usr/bin/perl
use strict;
...
nstore_fd \$txt, $SF;
nstore_fd \@ary, $SF;
close $SF;

#!/usr/bin/perl
use strict;
use warnings;
...
print "Text: '$txt'\n";
print "Array: (", join(', ', @ary), ")\n";
print "Hash:  (", join(', ', map { "$_=>$hsh{$_}" } keys %hsh), ")\n";

roboticus@Boink:~
$ perl tst_Storable_2.pl
Text: 'The quick red fox jumped over the lazy brown dog'
Array: (17, Flugelhorn, 13.333)
Hash:  (Cherry=>42, Banana=>7, Apple=>1)