#!d:\perl\bin\perl.exe -w
use strict;
my $server = "192.168.0.5";           # or something
my $dir = "\\\\$server\\c\$\\temp";   # open c:\temp on $server
opendir (DIR, $dir) or die "cannot opendir $dir";
foreach (readdir(DIR)){
    #do something
}