Mine

#!C:\Perl\Bin\perl.exe -w
use strict;
#--------------------#
# File listing yay!  #
#--------------------#
my $dir = 'C:\Documents And Settings\Robert\Shared';
if(!chdir($dir))
{
	print "Error : $!\n";
}else{
		chdir($dir);
		my @a = glob *;
		my $num=@a;
		for(my $i=0;$i<$num;$i++)
		{
			print shift(@a) . "\n";
		}
	}