[modeller_usage] Perl Script to plot DOPE