$ perl t.pl 
Please enter the archive comment now (<CTRL>+D ends comment):
bla
^D
$
$ echo "lese von stdin" | perl t.pl 
Please enter the archive comment now (<CTRL>+D ends comment):
$