#!/usr/bin/perl
  use strict;
  use CGI;
  package WeirdBugObject;
  use fields qw{weird bug object};
  sub new{
    return fields::new(shift);
  }

  package main;
  my @params=CGI::param();
  my $wbArrayRef=[WeirdBugObject->new(),WeirdBugObject->new()];
  foreach my WeirdBugObject $wbo (@$wbArrayRef){print(ref($wbo),"\n");}

##</code><code>##

  CGI::read_from_cmdline: Can't declare class for non-scalar @words in "my" at testWeirdBug.pl line 11.