END{ 
    no strict; # access $VERSION by symbolic reference
    print map {
        s!/!::!g; 
        s!.pm$!!; 
        sprintf "%-20s %s\n", $_, ${"${_}::VERSION"} 
    } sort keys %INC; 
};