#!/usr/bin/perl -w use strict; my $a = 0; while (1) { print sin ($a * 3.14), ' ', cos ($a * 3.14), "\n"; $a += 0.02; }