#!/usr/bin/perl

print "la " for (1 .. 12);

my $cherie, $amour;
$cherie->{lovely} >= $days{'summer'}
    or die;

my $here = $self->get_location();
(d($cherie,$here) - d($milky_way,$here)) < $epsilon
    or die;

$cherie->is_pretty() && $self->adore_ref($cherie);

while ($girl == $cherie) {
  $self->heart_beat;
}

my $pkg = __PACKAGE__;
if ((ref $cherie) !~ m/^$pkg/) {
   *{__PACKAGE__ . "::cherie"} = \$cherie;
}

####

sub d {
  my ($a,$b) = @_;
  return sqrt( ($a->{x} - $b->{x})**2
                 + ($a->{y} - $b->{y})**2
             );
}
__END__

# My Cherie Amour, lovely as a summer's day.
# My Cherie Amour, distant as the milky way.
# Oh, Cherie Amour, pretty little one that I adore
# You're the only girl my heart beats for.
# How I wish that you were mine.
[download]

This is, of course My Cherie Amour by Stevie Wonder, or at least the first verse. Comments are welcome, I know my typeglob skills are a little rough, so I hope that assignment was right. Any song that starts out with the word "my" reminds me too much of Perl.

BTW, is this the correct category for such nonsense?