#!/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;