perl: removed unwanted callback function