#!/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('/home/joost/do.pl'); # put your full path here. if($@){ print "Error: $@"; } else { print "No Error.\n"; }
In reply to Re: -T and Safe.pm
by Joost
in thread -T and Safe.pm
by habit_forming
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |