print-homer-doh

#!/usr/bin/perl

print("                                 __ \n                       _ ,___,-'\",-=-. \n           __,-- __,-'__  (\"\"\`'-._\\ \`. \n        _,'  __ |,' ,-' __)  ,-     /. | \n      ,'_,--'   |     -'  _)/        \\ \n    ,','      ,'       ,-'_,\`           : \n    ,'     ,-'       ,(,-(              : \n         ,'       ,-' ,    _            ; \n        /        ,-._/\`---'            / \n       /       (____(----. )       ,' \n      /         (      \`.__,     /\\ /, \n     :           ;-.___         /__\\/| \n    |         ,'      \`--.      -,\\ | \n     :        /            \\    .__/ \n      \\      (__            \   |_          \"D\'OH !\"\n       \\       ,\`-, *       /   _|,\\ \n        \\    ,'   \`-.     ,'_,-'    \\ \n       (_\\,-'    ,'\\\")--,'-'       __\\ \n        \\       /  // ,'|      ,--'  \`-. \n         \`-.   \`-/ \\'  |   _,'         \`. \n            \`-._ /      \`--'/             \\ \n               ,'          |              \\ \n              /             |               \\ \n           ,-'             |               / \n          /                 |             -' \n");