#!/usr/bin/perl use Opcode; use Safe; my @names = Opcode::opset_to_ops(Opcode::full_opset); my @neededops; use CGI; my $query=CGI::new(); print $query->header(); print ""; foreach $name(@names) { my $cpt; $cpt=undef; $cpt=new Safe; $cpt->share('$name'); my(@ops)=grep { $_ ne $name} @names; $cpt->permit_only(@ops); my $line=q{ print "Opcode: $name\n"; }; $cpt->reval($line); push @neededops, $name if $@; } print "

\n\n@neededops\n"; print "";