Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
  fix_bcp_file($file);
}

Select or download this
```
local ( $^I, @ARGV ) = ( '', $file );
```

Select or download this

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