#!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; [download]
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