use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';

my $excel = Win32::OLE->CreateObject ('Excel.Application') or die $!;
$excel->{Visible} = 1;

my $workbook  = $excel->Workbooks->Add;
my $worksheet = $workbook->ActiveSheet;

$worksheet->Range ('A1')->{Value} = 1;

$worksheet->Range('A1')->AutoFill({
          Destination => $worksheet->Range('A1:B17'),
          Type        => xlFillDefault,
       });