sub dos_chomp
{
    if (!defined(@_[0]))
    {
        chomp;
        s/\r$//;
    }
    else
    {
        for (@_)
        {
            chomp;
            s/\r$//;
        }
    }

    return wantarray ? @_ : @_[0];
}