[boulder.pm] Help printing to e-mail

[Jay Kominek]

>    my $formated_txt = "format MAIL = \n"
>    . "From: \@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< \n"
>    .        $sender . "\n"
>    . "To: \@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< \n"
>    .      $recipient . "\n"
>    . "Subject:  Request for Purchase Approval\n"
>    . ".\n";

I believe you need to escape the $ in $sender and $recipient:

[jkominek at nehwon /home/jkominek]$ perl
   my $formated_txt = "format MAIL = \n"
   . "From: \@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< \n"
   .        $sender . "\n"
   . "To: \@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< \n"
   .      $recipient . "\n"
   . "Subject:  Request for Purchase Approval\n"
   . ".\n";
print $formated_txt,"\n";
^D
format MAIL = 
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 

To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 

Subject:  Request for Purchase Approval
.

- Jay Kominek <jay.kominek at colorado.edu>
  If you can't do it in Perl,
  you don't need to do it.