#!/usr/bin/perl 

$she = 'Doris';
open(YOUR,"<eyes") and $see = "what i wrote for you";

our $time = "is short in live";
$thats_why_we = "need to"; eval { our $situation }; 
$this_is_love or $just_a_condition or $maybe_a_suggestion;

$i_have_to = seek(FORTHEANSWERS,0,1);
$menwhile; if ( $she_still my $sunshine and open(MY,">heart") ) { $i_will_on = "her light" } 
else { $i_will = die } 

foreach ( $days ) { $_ = <DATA>;print }

__DATA__
$she is the first thing i think of 
Each morning when i rise.
$she is the last thing i think of 
Each night when i close my eyes.

__END_