#!/usr/bin/perl use strict; use warnings; { # Put jwkrahn's code here } for my $file (@ARGV) { fix_bcp_file($file); }