sub println
{
        print ((@_? join($/, @_) : $_), $/);
}