2016-12-04 12:42:14 dpchrist@debian ~/sandbox/perl
$ perl is_typeglob.pl 
$code = '*ARGV			';$r = *::ARGV;$@ = '';
$code = '*ARGV cmp \'*ARGV\'		';$r = 1;$@ = '';
$code = '*ARGV cmp "*ARGV"		';$r = 1;$@ = '';
$code = '*ARGV cmp \'*::ARGV\'	';$r = 1;$@ = '';
$code = '*ARGV cmp "*::ARGV"	';$r = 1;$@ = '';
$code = 'ref        *ARGV		';$r = '';$@ = '';
$code = 'blessed    *ARGV		';$r = undef;$@ = '';
$code = 'openhandle *ARGV		';$r = undef;$@ = '';
$code = 'reftype    *ARGV		';$r = undef;$@ = '';