Select Code to Download

func1( <expression(s) rendering the argument list1>  ) 
+ 
func2( <expression(s) rendering the argument list2> )

my( $x, $y ) = ( $db->getData() >>,<< $lwp->getdata() );

while( my $x = $db->getData() >>and<< my $y = $lwp->getData() ) {
    ## Use $x and $y
}

while( all( my $x = $db->getData() & my $y = $lwp->getData() ) ) {
    ## use $x and $y
}

while( my $messageObj = read( any( @sockets ) ) ) {
    ## reply
    send $msgObj->socket, 
        "Thanks for your message '$msgObj->text', we'll get back to yo
+u."
}