stat, as noted above, is the internal Perl function.. There is also File::Stat which provides a slightly easier to use by-name interface to the file attribute functions.

--
I'd like to be able to assign to an luser

#!/usr/bin/perl
use File::Find qw(find);

kill_big_files( "/tmp", 300*1024 );

sub kill_big_files {
  my $dir  = shift;
  my $size = shift;
  find( sub {
    # current file is in $_
    # current dir is the directory $_ is in

    return if -d; # skip directories
    return if -l; # skip links
    return if $size > -s;

    print "removing $_\n";
    unlink;
  }, $dir);
}
[download]

    print "removing $_\n"; 
    unlink;
[download]

I'd change that to:

  print "removing $_: ";
  print unlink $_ ? "$!\n" : "ok\n";
[download]

Otherwise you'll never know what went wrong.

-- Randal L. Schwartz, Perl hacker