Select Code to Download

pp2@nereida:~/src/perl/testing$ cat -n addlong.pl
     1  use warnings;
...
     5  my $x=100.0;
     6  my $y=-100.01;
     7  print (($x+$y)."\n");

pp2@nereida:~/src/perl/testing$ perl addlong.pl
-0.01