#!/usr/bin/perl -w

while(<STDIN>)
{

    while (!-z 'alire.txt') # Attention aux quotes utilisées !!!!!
    {
	sleep(1);
    }
    open(FIC, '>alire.txt') || die 'pb ouverture fichier alire.txt';
    print FIC $_;
    close(FIC);
}