#!/usr/bin/perl

# (C) 2000, Aidas Kasparas
# darbo su objektais perle pavyzdys

use complex;

  $a = new complex(2,1);
  $b = new complex(3,4);
  
  $c = $a->add($b);
  $c->pr;
  print "\n";