use warnings;
use strict;


if (!$r){

  do something

}