Select Code to Download

package rlib;

use strict;
...
1;

__END__

    my($pkg,$file) = (caller(1))[0,1];
    my @rel = @_ ? @_ : qw(../lib lib);

    
    while($pkg =~ /::/g) {