Wahrscheinlich meint er soetwas:
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use utf8;
use open ':utf8';
use open ':std';
my $filename = 'default.txt';
GetOptions(
'f|filename=s' => \$filename,
) or die;
print "Bitte etwas eingeben: (Mit STRG+D abbrechen)\n";
my $input = do { local $/; <STDIN> };
open my $fh, '>', $filename or die "Cannot open file '$filename': $!\n";
print $fh $input or die "Cannot write to file '$filename': $!\n";
close $fh or die "Cannot close file '$filename': $!\n";
sidburn@tigges:~/perl$ ll
total 4
-rwxr--r-- 1 sidburn sidburn 518 2007-10-30 14:07 file.pl
sidburn@tigges:~/perl$ ./file.pl -f test.txt
Bitte etwas eingeben: (Mit STRG+D abbrechen)
Hallo
welt wie geht es dir
sidburn@tigges:~/perl$ ll
total 8
-rwxr--r-- 1 sidburn sidburn 518 2007-10-30 14:07 file.pl
-rw-r--r-- 1 sidburn sidburn 27 2007-10-30 14:09 test.txt
sidburn@tigges:~/perl$ cat test.txt
Hallo
welt wie geht es dir
sidburn@tigges:~/perl$
Aber ka, wie man es in der Shell löst.