Select Code to Download

package Tie::Static;
$VERSION = 0.01;
...
}

1;

tie (my $foo, 'Tie::Static'); tie (my $bar, 'Tie::Static');
# or this
map { tie $_, 'Tie::Static' } my ($foo, $bar, $baz, ...);