#!/usr/bin/perl

use warnings;
use strict;
use Math::SigFigs;

my $num = 123.456;

print FormatSigFigs($num,1), "\n";