require File::Spec;
my $script= File::Spec->rel2abs( $0 )