Select Code to Download

#!/usr/bin/perl
use strict;
...
} else {
    print "$str=false\n";
}

Argument "true" isn't numeric in numeric eq (==) at noname.pl line 7.
false=true
Argument "false" isn't numeric in numeric eq (==) at noname.pl line 7.