openの使い方

if( open my $fh, "> hoge" ){
    print $fh "hello,world\n";
    close $fh;
}else{
    die("open:$!");
}