#!/usr/bin/perl
# file: complex.pl

use strict;
use Math::Complex;

# create two objects named $a and $b. 
# the first argument is the real part of the complex number, 
# and the second is the imaginary part. 
# The return value from make() is the complex number object. 
my $a = Math::Complex->make(5,6);
my $b = Math::Complex->make(10,20);
my $c = $a * $b;

print "$a * $b = $c\n";