Help for this page

Select Code to Download

Select or download this

#===== Open the file containing our list of produce
$filename = "produce_items.txt";
open(PRODUCE, $filename) || die "Error opening $filename! : $!\n ";

Select or download this

#===== Open the file containing our list of produce
$current_directory = $ENV{PWD};
$filename = "$current_directory" . "/" . "produce_items.txt";
open(PRODUCE, $filename) || die "Error opening $filename! : $!\n ";