my $file;
opendir(DIR, $dir) or die "Can't read $dir: $!";
$file = readdir(DIR) until $file =~ /^[^.]/; 
print "First file is $file\n";
closedir DIR;