Help for this page
#!/usr/bin/perl ... while(<P2>) { print; }
#!/usr/bin/perl ... sleep 1; } print "\n";