Select Code to Download

package Tie::Substr;
use base 'Exporter';
...
    tie my $foo, 'Tie::Substr', \@_;
    $foo
}