Select Code to Download

  my @dirs = File::Spec::Win32->splitdir($directories);
  my $delimiter = '!!SPLORG!!';
  print join($delimiter, @dirs) . "|$Name";
  print "\n";

my ( $volume, $directories, $file ) = File::Spec::Win32->splitpath( $P
+ath );