How to create a class and pass objects as arguements to method in perl?

See more:

Perl

public class TKomplex
{
public double real;
public double imag;
}

public TKomplex ksum(TKomplex a, TKomplex b)
{
TKomplex res;
res.real = a.real + b.real;
res.imag = a.imag + b.imag;
return (res);
}


public TKomplex kprod(TKomplex a, TKomplex b)
{
TKomplex res;
res.real = a.real * b.real - a.imag * b.imag;
res.imag = a.real * b.imag + a.imag * b.real;
return (res);
}
How to code this in perl? How to create a class and pass objects as arguements to method in perl?