#!/usr/bin/env perl
use strict;
use warnings;
use PerlIO::via::QuotedPrint;

binmode STDOUT, ':via(QuotedPrint)';
print " ";