Select Code to Download

# Untested code for demonstation purposes only

...
sub part_channel {
...
}

$remove = <REMOVE>;

Filehandle FILE opened only for output at C:\file.pl line 7.

open(REMOVE, "+>project.pjt")

open(REMOVE, "+>>project.pjt")