#!/usr/bin/perl -l

use Math::Complex;
use constant pi => 3.14159265358979;

$z = cplx( 0, pi );   # czesc rzeczywista 0, czesc urojona &pi;

print exp($z) + 1;    # wyswietla 0

$x = cplx( 2, 3 );      # 2 + 3i
$y = ~$x;               # 2 - 3i

print $y;