#!/usr/bin/perl -w

use 5.034;

my $pattern = "*";
my @files = glob ($pattern);

for (@files){
    next if (/\./g);
    next unless (-f $_);
    chomp;
    say $_;
}

exit 3;

__END__
  
Notdot files are prone to be scripts or text files in n*x env.
  So, show them up!