use strict;
use warnings;
use Data::Dumper;
my $path = '//myuncserver/wwwroot$';
my @entry = stat($path) or die "Couldn't stat $path : $!";
print Dumper(@entry);

##</code><code>##

<%@ LANGUAGE="perlscript" >
<%
use strict;
use warnings;
use Data::Dumper;
use vars qw($Response);
my $path = '//myuncserver/wwwroot$';
my @entry = stat($path) or die "Couldn't stat $path : $!";

$Response->Write(Dumper(@entry))
%>

PerlScript Error error '80004005' 
(in cleanup) Couldn't stat //myuncserver/wwwroot$ : No such file or directory 
/testdir/walk2.asp, line 8