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

print "#$_" while defined $_ = <>;