Select Code to Download

if ( $#ARGV < 0 ) {
    print "Usage: $0 [In File][Out File]\n";
...

my $emtocin = $ARGV[0];
my $emtocout = $ARGV[1] || 'cmpemtocout.txt';

die "Usage: $0 [In File][Out File]\n" if @ARGV <1;
my ($emtocin, $emtocout)= @ARGV;
$emtocout ||= 'cmpemtocout.txt';

my @fld = ( split(/\|/, $record ) )[0, 3..8];
#and print could look like this:
print FDOUT join("\n",@fld),"\n";
#you don't need $outrecord

print FDOUT join("\n",@fld),"\n";
#should have course been, 
print FDOUT join('|',@fld),"\n";