>>698
my $file = '-';
if (オプションあり) {
$file = 'ファイル名';
}
open my $wfh, ">$file";
print '出力';
close $wfh;