#!usr/bin/perluse warnings;use strict;my $integer = 873;printf "\t%.2d\n\t%.4d\n\t%.9d\n\n", $integer, $integer, $integer;