use constant FS=>'File::Spec';
my ($v,$p,$f)=FS->splitpath($0);