#!/usr/bin/perl

use Devel::Peek;

sub foo { @_ };
$sub = \&foo;

print Devel::Peek::CvGV($sub);
__END__
*main::foo