You neglect to call main. The escaping notation is broken, you specified $path to have the literal string \\127.0.0.1\ak\. Better use single quotes:

my $path = '\\\\127.0.0.1\\c$\\bak\\';
[download]

or avoid nasty backslash escaping with heredoc:

my $path = <<'UNC';
\\127.0.0.1\c$\bak\
UNC
chomp $path;
[download]