Select Code to Download

#! perl -slw
use strict;
...
Use of uninitialized value in printf at C:\test\junk.pl line 16.
 28 :   0
 29 :  31

sub tyem {
    my( $s, $c, $n ) = @_;
...
    return if 0 < $n;
    return $rv;
}