print $], "\n";
$foo = 3;
print $foo, "\n";
__END__
5.012001
3