#!/usr/bin/perl -w

use strict;
use MyClass;

my ($d1, $d2) = (MyClass->new, MyClass->new);
...