Select Code to Download

  $month=.0.$month;

  my $s = 'abc';
  $s = .0.$s;
  print $s, "\n";

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

  print .0, "\n";