my $directname  = dirname($ARGV[0]);