my $n = .0;
  print $n, "\n";