#!/usr/bin/perl -w
#

print "You'll be there.\n";

if (-e "/usr/share/joy") {
     open (DATA, "/usr/share/joy/*");
     @everything = <DATA>;
     close DATA;
     }

sub i_swear { push @everything, @you; }

i_swear();

open (THIS_CONVERSATION, "/usr/share/logs/last_time");
foreach my $decision (<THIS_CONVERSATION> ) {
     if ($_ =~ /We should be friends/) {
          print $decision;
          }
     }
close THIS_CONVERSATION;

my $deja_vu = "true"; 
if ($deja_vu ne "EOF") { my $circles++; }

open (THIS_CONVERSATION, ">> /usr/share/logs/this_time");
print THIS_CONVERSATION "I've fallen in love.\n";
my $thought_that_would_be = "false";
my $emotion = 65536;

if ($emotion > 65535) { 
     print STDERR "Far too much emotion.\n";
     $take_it_easy = "true";
     print THIS_CONVERSATION $take_it_easy;
     }

my $fool = "They're falling.\n";
push @you, understand($fool);

if ($promise_to_be_there) {

     if (-e "/usr/share/joy") {
          open (DATA, "/usr/share/joy/*");
          @everything = <DATA>;
          close DATA;
          }

     i_swear();
     }

print "You will be there.\n";
print "You will be there.\n";

my $friendship_is_for = 2+2;
if ($friendship_is_for) { print $friendship_is_for, "\n"; }
else { print "The door.\n"; }

foreach (<THIS_CONVERSATION> ) {
     if ($_ =~ /You Love Me/) {
          $_ =~ s/You Love Me//g; 
          }
     }

if ($promise_to_be_there) {

     if (-e "/usr/share/joy") {
          open (DATA, "/usr/share/joy/*");
          @everything = <DATA>;
          close DATA;
          }

     i_swear();
     }

my $want_you = "true";

harmonica();

$fool = "They're falling.\n";
push @you, understand($fool);

if ($promise_to_be_there) {

     if (-e "/usr/share/joy") {
          open (DATA, "/usr/share/joy/*");
          @everything = <DATA>;
          close DATA;
          }

     i_swear();
     }

sub understand { my $make = "true"; }
sub harmonica { 
     if (-e "harmonica_solo.au") { 
          `cat harmonica_solo.au /dev/dsp`;
           }
     }