$err = ( $ms < 100000 ? 'wrong' : '' );
printf "Seconds since epoch (float):  %.6f\n", $sec;
# $sec is a float, print it like that...
printf "Seconds since epoch (list):   %d.%d  $err\n", $s, $ms;
printf "Seconds since epoch (float):  %.6f  $err\n", $float_t;

##</code><code>##

Seconds since epocg (float):  1349360875.006262
Seconds since epoch (list):   1349360875.6267  wrong
Seconds since epoch (float):  1349360875.626700  wrong