Hello Monks! Please see fit to answer my question.

Why does the -T disable the rdo function from Safe.pm?
Here is an example:

#!/usr/bin/perl -T

use warnings;
use strict;
use Safe;

my $s = new Safe 'SAFE';
$s->permit(qw( print ));
$s->share_from('main',['*STDOUT']); 
$s->rdo('do.pl');

if($@){ print "Error: $@"; }
else  { print "No Error.\n"; }
[download]

Does not work where as:

#!/usr/bin/perl

#Notice NO -T

use warnings;
use strict;
use Safe;

my $s = new Safe 'SAFE';
$s->permit(qw( print ));
$s->share_from('main',['*STDOUT']); 
$s->rdo('do.pl');

if($@){ print "Error: $@"; }
else  { print "No Error.\n"; }
[download]

Works like a champ!
Note that do.pl contains this:

#!/usr/bin/perl
print STDOUT "This is the client script.\n";
[download]

I have not been able to find an example of someone else having this problem. There is no mention of this in any documentation I have seen. I little help please.

Cheers!
--habit