Select Code to Download

use CGI qw(:standard);
@paramater=param();
...
$i++;
}
$sender =~ s/@/\\@/;

my ($to, $from, $subject, $message) = @_;
my $sendmail = '/usr/sbin/sendmail';
...
    $i++;
    }
close(MAIL);