So kann man z.B. STDOUT in Variable umlieten:
#!/usr/bin/perl
use strict;
my ($user_name,$name,$home_dir,$bash,$Inhalt);
$user_name = "username";
$name = "Vor und Nachname";
$home_dir = "/home/username";
$bash = "/bin/bash";
open (FH, '>', \$Inhalt);
format FH_TOP =
User Name Home Dir Shell
----------------------------------------------------------------------------------------------
.
format FH =
@<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<
$user_name, $name, $home_dir, $bash
.
write FH;
close FH;
print "Hier der Inhalt:\n$Inhalt";