use Safe;
use Safe::Hole;
my $SCRIPT_NAME = "unsafe.pl";
$QTL_HOLE_CPT               = new Safe::Hole;
$QTL_CPT					= new Safe("QTL");

$Devel::Trace_shushu2::TRACE= 1;

$QTL_CPT->rdo ( "$SCRIPT_NAME" );