#! /usr/bin/perl
open OUT ,">&63" ;

print OUT "this is a message\n" ;

close OUT  ;