The Devel::Peek module, which can be employed as such:

use Devel::Peek 'SvREFCNT';
use CGI;

$q = new CGI;
$refcount = SvREFCNT($q);
print "\$q has $refcount references\n";
[download]