Select Code to Download

$cwd = getcwd();
$path = $ENV{'DOCUMENT_ROOT'};
if ($^O =~ /^MSWin/i) {
...
  $cwd =~ s,/$,,;
  $path =~ s,/$,,;
}