#!/usr/bin/perl use strict; use warnings; use Test; my $obj1 = Test->new(); my $obj2 = Test->new();