#!/usr/bin/perl -w use strict; while (1) { print "P11,11\n"; print "Q22,22\n"; print "R33,33\n"; }