if ( $num == abs($num) ) {
    print "positive";
} else {
    print "negative";
}

##</code><code>##

if ( $num % 2 ) {
    print "odd";
} else {
    print "even";
}