Select Code to Download

Insecure $ENV{PATH} while running with -T switch at ./perlmail.pl line
+ 30.

sub send_mail {
    my ($from, $to, $subject, $data) = @_;
...
    close(MAIL) or die "Can`t close sendmail filehandle: $!\n";
    
}