Perl script to generate invoice