summaryrefslogtreecommitdiff
path: root/i/serialplot/toto.pl
blob: 9c957180ec91bae49585d7973911bf17d1f408ec (plain)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl -w
use strict;

my $a = 0;

while (1)
{
	print sin ($a * 3.14), ' ', cos ($a * 3.14), "\n";
	$a += 0.02;
}