use FindBin qw($Script);
print $Script, "\n";