#! /usr/bin/perl
use warnings;
use strict;
use utf8;
use open IO => ':encoding(UTF-8)', ':std';

print sprintf ("%-6s", "°C").   "|\n";
print sprintf ("%-6s", "Deg C")."|\n";