my @files = `ls $dir`;

##</code><code>##

  my @files;
  {
      opendir my $dh, $dir or die;
      @files = grep {!/^\./} readdir $dh;
      closedir $dh;
  }

##</code><code>##

    my $info = do {local (@ARGV, $/) = $file; <>};  # Cryptic
    
    # 7 Lines.
    my $info;
    {
        open my $fh, "<", $file or die;
        local $/;
        $info = <$fh>;
        close $fh;
    }