Select Code to Download

package Tie::FreezeThaw;

...
    return (thaw $foo)[0];
}
1;

use Tie::File;
use Tie::FreezeThaw;
...
tie my @bar, 'Tie::FreezeThaw', \@foo;

push @bar, [ qw/1..10/ ];