如何通过perl脚本从控制台将输出重定向到excel文件？

Question

 #!/usr/bin/perl
 use strict;
 use autodie;
 use Capture::Tiny 'capture_merged';

 my $ID=732636;
 my $User="vispsh1";
 my $Password="monitor1";
  print "viewing item...\n";

 open (my $file, '>', 'output.xls') or die "cannot open file";
 my $mks_cmd="im viewissue --user='$User' --password='$Password' $ID";
 print $file capture_merged { system($mks_cmd)};
 # print $mks_cmd;
 print "Done\n";

这是我的脚本，文件已创建但是，它没有将任何内容重定向到output.xls，我可以使用下面的命令来完成

 C:\perl>perl -w mks.pl > sample.xls

但是，我想通过脚本来完全自动化它！ 请帮忙，谢谢。