#!/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");}