Select Code to Download

#!/usr/bin/perl

...
$description = "another mug to help us swell our coffers";
$cost = 999.99;
write (INVOICE);