#!perl -w
use strict;
use Cwd;
use Win32::File;

my $attribs;
my $dir = cwd();
print $dir,$/;

opendir( DIR, $dir ) or die "Couldn't open $main::DIR: $!\n";
my @vis_files =  grep { -f $dir.'/'.$_  and
  Win32::File::GetAttributes($_,  $attribs) and
  !($attribs & HIDDEN) } readdir(DIR);
closedir( DIR ) or warn "Couldn't close $main::DIR: $!\n";
print $_, $/ for @vis_files;