http://qs321.pair.com?node_id=165359

elbie has asked for the wisdom of the Perl Monks concerning the following question:

I've got a script which I'd like to use to send documents via e-mail. Nothing major. Here's the portion of the script that I'm having issues with:

#! /usr/bin/perl -w use strict; use MIME::Lite; $ENV{ 'PATH' } = '/bin:/usr/bin:/usr/local/bin:/usr/lib:/var/qmail/bin +'; $ENV{ 'BASH_ENV' } = ''; my $msg = MIME::Lite->new( From => 'ccalzonetti@quarry.com', To => 'ccalzone@quarry.com', Subject => 'A test', Type => 'multipart/mixed', ); $msg->attach( Type => 'TEXT', Data => "Here is a file.\n", ); $msg->attach( Type => 'application/octect-stream', Path => '/var/wwwdata/docs/wml_style.pdf', Disposition => 'attachment', ); $msg->send;

Well, as is, the script works fine. If however, I add the -T taint option to my hashbang line, the script just seems to hang on me. No warnings, no errors, nothing.

Further, if I leave in the -T, but comment out the code attaching the pdf, then the script once again works.

Setting $MIME::Lite::PARANOID = 1 doesn't seem to be helping here. Anyone know what's going on?

elbieelbieelbie