use My::Big::Routine;
    use Tie::DATA(':ini', 'My::Big::Routine::go');

    foreach(keys %DATA)
    {
        print "$_ = $DATA{$_}\n";
    }