use strict;
use warnings;

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

while (<>)
  {
  print "prepended stuff - $_";
  }