#! perl -wl
printf "%f\n", rand 1