#!/usr/bin/perl -w

use strict; # every job should

my $number = 222.42;

printf("A: \$%10.2f\n",$number);
printf("B: \$%-10.2f\n",$number);