I hope you like this.
#!perl my @lonely_days = qw/monday tuesday wednesday thursday friday/; if ( not $doris ){print @lonley_days}; while ( $i ) { sleep and $dream=$doris }; link $me,$doris;

Replies are listed 'Best First'.
Re: Doris
by CountZero (Bishop) on Jul 19, 2003 at 21:48 UTC

    Let's hope Doris likes it!

    BTW in the second line, shouldn't it be @lonely_days instead of @lonly_days?

    CountZero

    "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law