my ($path, $script) = $0 =~ /^(.*\/)?(.+)/;