$0 =~ '(.*[\\\/])\w+\.\w+$'; 
    $dir = $1;