#!/usr/bin/perl

use strict;
use warnings;

{
# Put jwkrahn's code here
}

for my $file (@ARGV) {
  fix_bcp_file($file);
}


##</code><code>##

local ( $^I, @ARGV ) = ( '', $file );

##</code><code>##

local ( $^I, @ARGV ) = ( '.bak', $file );