#!/usr/bin/perl -w
use strict;
use Devel::Peek "CvGV";

my $x= CvGV(\&CvGV);
print "$x\n";
$x =~ s/^\*//;
$x =~ s/::[^:]+$//;
print "CvGV came from $x.\n";