sub puts{
    use bytes;
    local $, = "\n";
    local $\ = "\n";
    print @_;
}