Perl scripts to simulate diagc actions.