#!/usr/bin/perl

open(err, '+</root/mess');

print err "A perl ";
print {err} "test ";
print(err "script.\n");

close(err);