Select Code to Download

    my $user_id = "";
    foreach my $key (sort keys(%ENV)) {
      if ($key =~ /QUERY_STRING/) {
...
        #print "$user_id<p>";
      }
    }

my @ts_dir = $ENV{QUERY_STRING};
my $user_id = $ENV{IWUSER};

#!I:\Interwoven\TeamSite\iw-perl\bin\iwperl -T --
use strict;
...

    copy( $filename->handle, $destination_filename  ) or die "Copy to 
+( $destination_filename) failed: $!";
}

for my $testfn (
    "a/b/c",
    'a\b\c',
...

( a.ext )
        (a.1272-1316599567.ext)

for my $testfn (
    "a/b/c",
...

( a.ext )
        (16.3924-1316599650.568747)