perl PGPLOT