use CGI;

print "Content-type: text/html\n\n";
print "eval{<bites>$routine 'hard'</bites> && $ambitions  = 'low'
                                       && $resentments = 'high'
                                       && !($emotions ne $grow)}";

@ways = map($changing, @roads);

&love($love);
&love($love);

sleep(eval{open STDOUT, 'you cry'});
print "<b>my $failings<b>\n";
my $mouth =~ m/taste/ig;
$desperation = $hold;
undef &something_so_good;

&love($love);
&love;
&love;
&love;

sub love{
         $us = shift;
         split/apart again/,$us;
         }


sub something_so_good{
    }