use File::Basename;
my $dirname= dirname(__FILE__);