my $path=$0;
$path=~s/[^/]+$//;