#!/usr/bin/env perl
use strict;
use Cwd;
use Win32::OLE;

my $application = Win32::OLE->new("Exec.Application");
my $workbook    = $application->Workbboks->Add;
my $worksheet   = $orkbook->Worksheets(1);

$worksheet->Cells(1,1)_>{Value} = "The Perl Journal";
$worksheet->Cells(1,1)->Font->{Bold} = "True";
$worksheet->Cells(1,1)->Font->{Size}  = 16;
my $dir = getcwd();
$workbook->SaveAs($dir . '/perl_ole.xls');
$workbook->Close;