Select Code to Download

my @objects;
foreach my $line (@file) {
...
    my $object = Blah->new($creg, $cname, $attribs);
    push(@objects, $object);
}