my $com;
*com = $com;
# Undefined value assigned to typeglob at ..