>>131
'S n a4 x8'を'S! n a4 x8'にしたらどうなります？

↓これ動かしてもらえると嬉しいです。
use Config;
foreach(qw(shortsize intsize longsize longlongsize)){
print "$_ = $Config{$_} \n";
}