sisyphus@sisyphus5-desktop:~$ perl -MMath::Complex -E "say sin(pi * 1);"
1.22464679914735e-16
sisyphus@sisyphus5-desktop:~$ perl -MMath::Complex -E "say sin(pi * 0.99999999999999994);"
5.66553889764798e-16