BEGIN {
    use Win32::API;
    Win32::API::->Import("kernel32","HANDLE GetCurrentProcess()");
    Win32::API::->Import("kernel32","BOOL SetPriorityClass(HANDLE hProcess, DWORD dwPriorityClass)");
    SetPriorityClass(GetCurrentProcess(),0x00004000);
}