strawberry perlについて教えてください｡
perl hoge.plだとopen(OUTしている部分で指定の場所にﾌｧｲﾙができるのですが､
windowsのﾀｽｸに設定し定期実行させた場合起動はされているのですが､0byteのﾌｧｲﾙが出力されます｡どうもWin32のﾗｲﾌﾞﾗﾘがﾀｽｸで起動した場合うまく動かないようなのですが
どうすれば動くかお知恵をかして頂けますでしょうか｡

OS:windows 7 enterprise 64bit
strawberry perl

script
#!/usr/bin/perl

use strict;
use warnings;
use Encode;

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

my $excel;
eval {
Win32::OLE->GetActiveObject('Excel.Application');
};
if ($@) {
die "Excelが入っていません｡ $@";
}
unless (defined $excel) {
$excel = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) or die $!;
}
$excel->{Visible} = 'False';
$excel->{DisplayAlerts} = 'True';

my $filename = "/tmp/aaaa.xlsx";
my $book = $excel->Workbooks->Open({'FileName' => $filename,'Password' => '1','ReadOnly' => 'True'});

open(OUT, "/tmp/abc.txt");
my $i = 0;
while (my $sheet = $book->Worksheets(++$i)) {
print OUT $sheet->{Name}."\n";
}

(C)株式会社はてな