Here is the whole script
the variables $to, $from, filename, @comments I get from the client.
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);
sub send_mail {
my($to, $from, $subject, $filename, @comments)=@_;
my $sendmail="/usr/sbin/sendmail...