- or download this
my ($oldfirst, $oldsecond) = ( '', '' );
...
($oldfirst, $oldsecond) = ($first, $second);
print "\r$second:$_ ";
}
- or download this
#! perl -sw
use strict;
...
print "@{[$timer->data('_default')]}", $/;
__END__
- or download this
C:\test\WORDS>../208899-2 Anonymous Baltic Confirm Delta Entity Font
Gregarious Hazzard Indigo Jalopy Kilo Lascivious Matter
...
0.02 0.02 0.01 0.08 0.01 0.03 0.04 0.07 0.041 0.01 0.01 0 0 0
C:\test\WORDS>