print $cwd;
$cwd = dirname $0;