Validar RUT!
Perl

Enviado por Maņungo

sub dv{$_=pop;$r+=$&*(9-$c++%6)while s/\d$//;$r%11>9?k:$r%11;}