my ($path, $script) = $0 =~ /^(.*\/)?(.+)/; [download]
In reply to Re: program path by m-rau in thread program path by Anonymous Monk