#!/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"; }


##</code><code>##

#!/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"; }


##</code><code>##

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