#!/cadappl/bin/perl -IDoc -Ilib use Doc::DBI;