Help for this page

Select Code to Download


  1. or download this
    opendir DIR, "./" or die "Can't open: $!";
        my @files = grep { /\.txt\z/ } readdir DIR;
    closedir DIR;
    
  2. or download this
    print "Content-type: text/html\n\n";
    
    ...
            print $_;
        }
    }