in reply to how to get the current folder name where the program is running?
use Cwd; my ($bottomdir) = cwd() =~ m|([^/]*)$|; [download]