Select Code to Download

my %current;
open CURRENT, '<', $currentFile or die $!;
m[^ ( [^|]+ ) \| ]x and $current{ $1 } = $_ while <CURRENT>;
close CURRENT;

#! perl -slw
use strict;
...
close MASTER;
close X;
close Y;