#!/usr/bin/perl

sub are_lost {
  print $see;
}
$mythoughts = "1000 Dreams";

#######################

open (MYMIND, "for_you") or die "without hope";
read (MYMIND, $see, $mythoughts);
close MYMIND;

@mythoughts = split(/into/, $mythoughts);
foreach $thought (@mythoughts) { are_lost; }
[download]

I am not sure if this will actually run since I defined $mythoughts with text in it, but it may. It will not actually produce anything useful, and the file "for_you" should exist with something it it, but let me know your opinion of this.

Edited: 2001-03-03 by neshura