モダンなファイル入出力

gistfile1.PL

### file read ###
open my $fh, '<', $filename || die $@;
while (my $line = <$fh>) {
        print $line;
}
close $fh;


### file write ###
use utf8;

open my $fh, ">:utf8", $filename or die $@;
print $fh "ほげほげ";
close $fh;