If you really have a crush, you could write poetry like this guy did...speak in 'coad' so HT will understand

for ( ;; ) {
$thing{beauty} = $thing{joy};
$thing{lovliness}++;
if (0) {
%thing = ();
}
else {
$thing{bower} = "quiet";
$thing{sleep} = ["sweet dreams","health","quiet breathing"];
}
}
# A thing of beauty is a joy for ever:
# Its lovliness increases; it will never
# Pass into nothingness; but still will keep
# A bower quiet for us, and a sleep
# Full of sweet dreams, and health, and quiet breathing.
#
# - John Keats
(source :
http://www.perlmonks.org/)