# ex_19-2b

# Learning Perl on Win32 Systems, Exercise 19.2b



use Win32::OLE;

# grab the numbers

@numbers = <STDIN>;

# create the automation object

Win32::OLE::CreateObject("Excel.Application", $xl) || 

  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;

}