#!/usr/bin/perl


my $eyes = "closed";
my $heart = "aching";
my $beloved = "gone";


no warnings;

my $love = ();


open MY,"mind";
foreach ($love) {
    open MY,$eyes;
    tell my $mind or open my $eyes;
}

do not $fear and do not die;

$i; die "because i love you\n";

do { $i; sleep($_) } while ( $awake );

warn "$me" if ($i == $wrong);

bind my $love, $dear and do not exit;
for (my $world = "dark") {};
for (my $eyes = "blind") {};