#!/usr/bin/perl use strict;

foreach my $f (‘atime’, ‘blockdev?’, ‘chardev?’, ‘ctime’, ‘directory?’,

'executable?', 'executable_real?', 'file?', 'ftype', 'grpowned?',
'mtime', 'owned?', 'pipe?', 'readable?', 'readable_real?', 'setuid?',
'setgid?', 'size', 'socket?', 'sticky?', 'symlink?', 'writeable?',
'writeable_real?', 'zero?') {

      my $t = "\t";
      print "${t}def File.$f(name)\n\t${t}stat(name).$f\n${t}end\n";

}