#!/usr/bin/perl

my @files = `dir \\\\MACHINE\\SHARENAME`;

foreach ( @files )
{
  print;
}
exit;