#!/usr/bin/perl

use strict;
use warnings;

use BaseClass ;
my $c = BaseClass->new ;
my $x = 0 ;
$x += $c ;
print "x = $x\n";