{
        # Need to add tags of <vom> and <\vom> at the
        # start and end of the file
        # Doing this below, but in a different block
        # of code to not disturb ARGV
        $out->[1] =~ s/\\/\\\\/g; # for windows
        local @ARGV = ($out->[1]);
        local $^I = '.bk';
        while (<>) 
        {
            if ($. == 1)
            {
                print "<vom>\n";
            }
            else
            {
                print;
            }
        }
        open(APP, ">>$out->[1]");
        print APP "\n</vom>\n";
        close(APP);
    }