#!/usr/bin/perl

use 5.040.2;

use Math::Complex;

no warnings;

my $pi = 4*atan2(1,1);

say sprintf("%.20f", exp( $pi * i ) +1) ;            # la ecuación más bonita popularmente

say "";

exit 2;

__END__
  divertimento mar 11 ago 2026 19:01:37 CEST
               mar 11 ago 2026 17:01:44 GMT