#!/usr/bin/perl
use v5.985.1;
use AI qw(HeadSet);

print "Please put on your head sensors \n";
print "Please think what you want done\n";

my $program = AI->new;

$program->filter('pornographic thoughts');

#print "$program\n";
$program->export('the_matrix');

END