Never enough TMBG ...

#!/usr/bin/perl -c
# hypnotist of ladies

tie $he, Hypnotist; $Ladies->{$he};
tie $he, Hypnotist; $Ladies->{$he};
sleep(1),sleep(100);

tie $he, Hypnotist;$Ladies->{$he};
!Watch->pocket;  ! (10..1);
!remember(y/you/liked/,$he);
!remember(y/you/liked/,$he);

# He's a hypnotist, hypnotist of ladies
# He's a hypnotist, hypnotist of ladies
# You're getting sleepy, very sleepy
#
# He's a hypnotist, hypnotist of ladies
# Never had a pocket watch, never counted backwards
# You won't remember why you liked him
# You won't remember why you liked him
[download]

---

OH, a sarcasm detector, that’s really useful