print "Hello\n";

my $x = "0.33333333333333333333333333333333333333333333333333333333333333";
print "x=$x\n";
print 'x=$x\n';
$x = $x + 0.0;
print "\n";
print "x=$x\n";

printf("x=%6.3f\n", $x);

my $sum = 0;
for(my $i = 1 ; $i <= 100 ; $i++) {
	$sum += $i;
}
print("sum=$sum\n");

#print "max i=";
#my $in = <>;

for(my $i = 0 ; $i <= 100 ; $i++) {
	my $x = 3.14 * $i / 100;
	my $f = sin($x);
	print("sin($x)=$f\n");
}

my $filename = "data.csv";

my $ret = open(OUT, ">$filename");
if(!$ret) {
	print "File open error [$filename]\n";
	exit;
}

for(my $i = 0 ; $i <= 100 ; $i++) {
	my $x = 3.14 * $i / 100;
	my $f = sin($x);
	print OUT "$x,$f\n";
}

close(OUT);