sub DownSize { my ($p_val)=@_; my $ret=$$p_val; $ret /= 16; $ret += 0.5; $ret =~ s/\..*$//; $$p_val=$ret; }
AndriusKulikauskas March 3, 2009 17:48 CET I'm not able to paste something in the rest.
