{
    local $^I = ".bak";
    local *ARGV;
    @ARGV = "/path/to/httpd.conf";
    while(<>) {
        s/^(?=.)/# /;   # simple substitution
        print;
    }
}