$str1 = 0.00;
print $str1, "\n";
__END__
0