#!/usr/bin/perl
use strict;
use warnings;
use fred;

my @line;
format STDOUT_TOP =
@<<<<<< @<<< @>>>>>>>>>>>
"a", "b", "c"
.
format STDOUT =
@<<<<<< @<<< @########.##
@line
.

$line[0] = "\x{20ac}";
$line[1] = 'fre';
$line[2] = 2;
write;

##</code><code>##

package fred;

use encoding 'utf-8';

1;

##</code><code>##

a       b               c
€       fre <        2.00