Added perl script for drawing Roc-curves