#!usr/bin/perluse warnings;use strict;my $float = 123.94536;printf "\t%.3f\n\t%.3e\n\t%.3g\n\n", $float, $float, $float;