#!/afs/sipb/project/perldev/p -w

use strict;
use lib '/mit/bert/PERL';
use Evil;

open X, "/mit/bert/PERL/evil.pl"
  or die "oops $!";

Evil::test(\*X);