Select Code to Download

#!/usr/bin/perl -l

...
print '$y can ooh? ', 0+!!UNIVERSAL::can($y, 'ooh');
print '$x can ahh? ', 0+!!UNIVERSAL::can($x, 'ahh');
print '$y can ahh? ', 0+!!UNIVERSAL::can($y, 'ahh');