#!usr/bin/perl use warnings; use strict; printf "%4d\n", 1; printf "%4d\n", 12; printf "%4d\n", 123; printf "%4d\n", 1234; printf "%4d\n", 12345; printf "%4d\n\n", 123456789; printf "%4d\n", -1; printf "%4d\n", -12; printf "%4d\n", -123; printf "%4d\n", -1234; printf "%4d\n", -12345; printf "%4d\n", -123456789;