#!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;