>>487
#!/usr/local/bin/perl

use strict;
use IO::File;

sub main {
my $fh;
unless( $fh = new IO::File( './test.txt', 'a', '0666' ) ) {
print "$!\n";
}
print $fh "test\n";
$fh->close;
}

main;

>>483ではデフォルト0666になるとか書いてあるのですが、上記のようにやっても
644にしかなりません（昨日の0655もまちがえでした）

うーん・・・