Select Code to Download

use strict;
use warnings;
...
}

__END__

$ perl 1223893.pl

Total: $ 4 Sales: $1.00 $2.00 $3.00 $4.00
Total: $12 Sales: $1.00 $2.00 $3.00 $4.00 $5.00 $6.00 $7.00 $8.00 $9.0
+0 $10.00 $11.00 $12.00

$ perl -Mstrict -wE 'say sprintf("%s", qw/two strings/);'