Select Code to Download

use Tie::Simple;
tie $scalar, 'Tie::Simple', $data,
    FETCH     => sub { ... },
    STORE     => sub { ... };