use File::Basename;
print dirname $0;