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

use English qw( -no_match_vars );

open my $wh, '>', 'dummy.txt' or die "open(dummy.txt,w): $!\n";

format MYOUTPUT =
  @###   @.###   @##.###  @###   @###   ^####
   42,   3.1415,  0,    0, 10000,   0
.

# "verknuepfe" Format mit Dateihandle $wh
my $old_fh = select($wh);
$FORMAT_NAME     = "MYOUTPUT";

# vorherigen Zustand wieder herstellen
select($old_fh);

# Ausgabe schreiben
write $wh;


close $wh;