void my_print(PerlIO *f)
{
 PerlIO_puts(f,"abcdef");
}