Select Code to Download

use strict;
use warnings;
...
    my $scalar = shift;
    return defined ($scalar) && length ($scalar) && (!$scalar || $scal
+ar eq '0E0');
}