BEGIN {
       if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
               $runtimedir = $1;
               $program = $2;
       }
}

use strict;
use lib $main::runtimedir;