#!/usr/bin/perl
$dir = "C:\\Users\\user\\Desktop\\test";
opendir DIR, $dir or die "error: cannot open directory \"$dir\" $!";

@files = sort grep (!/^\.$|^\.\.$/, readdir(DIR));
closedir (DIR);
print "@files\n";

##</code><code>##


PBILLSTA.doc
PBGISCTX.doc
BGISCTXL.doc
P537_LC.doc
AODG.doc
MAD004PN.doc