#! /usr/bin/perl -w

# experiment with printf

use strict;

my $num = 0;
my $dig = 0;

print 'Input a number :';
chomp( $num = <STDIN> );
print 'How many digits would you like after the decimal point ? ';
chomp( $dig = <STDIN> );
print "\n";
print 'Original number was ';
print "$num \n";
printf("And to $dig, points is ");
printf( "%.${dig}f", $num );
print "\n\n";