Select Code to Download

use Tie::File;
use Data::Dumper;
...
print Dumper($self);
unshift @array, "abcd";
print Dumper($self);

$VAR1 = bless( {
                 'autochomp' => 1,
...
                                     0
                                   ], 'Tie::File::Cache' )
               }, 'Tie::File' );