#!/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";