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

##</code><code>##

open my $info, '<', $file or die "Can't open '$file': $!\n";

##</code><code>##

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

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