use Win32::OLE qw(in with HRESULT);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Const 'Microsoft Office 10.0 Object Library';
use Win32::OLE::Const 'OLE Automation';
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
	|| Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{DisplayAlerts}=0; 
my $Book = $Excel->Workbooks->Add();
$Book->SaveAs($excelfile);
my $Sheet = $Book->Worksheets("Sheet1");
$Sheet->Activate();       
$Sheet->{Name} = "DidItInPerl";
#stolen right from cacharbe!

my $TextBox = $Sheet->Shapes->AddTextBox('msoTextOrientationHorizontal', '10','10','0','0');