#!perl
$price = 16.50;
$formatted = sprintf("\$%8.2f", $price);
print "Price is $price, formatted price is $formatted.\n";
__END__

Price is 16.5, formatted price is $   16.50.