perl -MDevel::Cover  asc.pl