if ( cookie() ) { return 1; }

##</code><code>##

return 1 if cookie();

##</code><code>##

 if ($multi_in == 1) {
     ...
 }

##</code><code>##

 if ($multi_in) {
     ...
 }

##</code><code>##

    use Mail::Mailer;

    $mailer = Mail::Mailer->new();
    $mailer->open({ From    => $from_address,
                    To      => $to_address,
                    Subject => $subject,
                  })
        or die "Can't open: $!\n";
    print $mailer $body;
    $mailer->close();

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;$_=&#91"ps -e -o pid | "," $2 | "," -v "," "&#93;`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;print"\n";}