Select Code to Download

#!/usr/bin/perl -w
#
...
    print STDERR $text;
    return 1;
}

    Ratio Change:  0.1 => 0.101
    Ratio Change:  0.101 => 0.100899100899101
...
    Ratio Change:  0.0989010989010989 => 0.0988023952095808
    Start percentage ... 10.0000%
      End percentage ...  9.8802%

    my $text = "Ratio Change:  $ratio0 => $ratio1\n";

    my $text = "Ratio Change:  %7.4f => %7.4f\n", $ratio0, $ratio1;

    my $text = sprintf "Ratio Change:  %7.4f => %7.4f\n", $ratio0, $ra
+tio1;

    Useless use of private variable in void context at warn.pl line 59
+.
    Useless use of private variable in void context at warn.pl line 59
+.

    Ratio Change:  %7.4f => %7.4f
    Ratio Change:  %7.4f => %7.4f
    Ratio Change:  %7.4f => %7.4f
    Start percentage ... 10.0000%
      End percentage ...  9.9900%

    Ratio Change:   0.1000 =>  0.1010
    Ratio Change:   0.1010 =>  0.1011
...
    Ratio Change:   0.1013 =>  0.1012
    Start percentage ... 10.0000%
      End percentage ... 10.1202%

Global symbol "$ratio0" requires explicit package name at ./warn.pl li
+ne 26.
Global symbol "$ratio1" requires explicit package name at ./warn.pl li
+ne 27.
...
Global symbol "$ratio0" requires explicit package name at ./warn.pl li
+ne 59.
Global symbol "$ratio1" requires explicit package name at ./warn.pl li
+ne 59.
Execution of ./warn.pl aborted due to compilation errors.

Ratio Change:   0.1000 =>  0.1001
Ratio Change:   0.1001 =>  0.1000
...
Ratio Change:   0.0991 =>  0.0992
Start percentage ...  0.0992%
  End percentage ...  0.0992%