$listdir = "/home/julix/majord/lists/";
  4 $listname = "virtuz";
  5
  6 &test;
  7 sub test {
  8 open (MSG, ">test.txt");
  9 if( -e $listdir.$listname && -f $listdir.$listname ){
 10     do "wrapper.pl";
 11 }
 12 else {
 13     print MSG "$listname not found\n";
 14 }
 15 close(MSG);
 16 }