Select Code to Download

#!/usr/bin/perl
my $input=$ARGV[0];
...
        next if($currentline=~/^\s+(CLOSE|OPEN)\s+/i);
        print $currentline;        
    }

open my $fh, '>:encoding(utf-16LE)', $currentline;
open my $fh, '<:encoding(utf-16LE)', $menufile;