Select Code to Download

package Dmitri::Test;

...
}

1;

#!/usr/bin/perl -w

...
Dmitri::Test::say_hi;

exit(0);

sub A::B::routine { &$ref }