Select Code to Download

sub _mtime {
    my ($self, $filepath) = @_;
...
    # get the modification time
    return (stat(_))[9];
}

print "Can do.\n" if -r $a || -w _ || -x _;

...
print "Sticky\n" if -k _;
print "Text\n" if -T _;
print "Binary\n" if -B _;