quiethost

quiethost/perl/excel.pl

@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Spreadsheet::WriteExcel;
+
+print "Start\n";
+
+my $workbook = Spreadsheet::WriteExcel->new("BA_Data.ods");
+my $worksheet = $workbook->add_worksheet();
+my ($x,$y) = (0,0);
+ my @list = qw(13,92 12,98 101,13); 
+ foreach my $c (@list){
+    $worksheet->write($x, $y++, $c);     
+}
+$workbook->close();
+