Select Code to Download

@files = <../data/texts/*>;

...
exists $isfile{$file} or die;

open(IN, "../data/texts/$file") or die $!;

open (FILEHANDLE, MODE, FILENAME) or die $!;

open (IN, "<", "../data/texts/$file") or die $!;

#!/usr/bin/perl -wT

...
exists $isfile{$file} or die "Invalid filename: $file";

open(IN, "<", "../data/texts/$file") or die $!;