# ex_19-2a
# Learning Perl on Win32 Systems, Exercise 19.2a

use OLE;
# grab the numbers
@numbers = <STDIN>;
# create the automation object
$xl = CreateObject OLE "Excel.Application" ||
  die "CreateObject: $!";
# show it and add a new workbook
$xl->{Visible} = 1;
$xl->Workbooks->Add();
# start at the top left
$col = "A"; $row = 1;
foreach $num (@numbers) {
  chomp($num);
  $cell = sprintf("%s%d", $col, $row++);
  # add it to Excel
    $xl->Range($cell)->{Value}  = $num;
}