use File::Basename;
$dir = dirname($0);