#!/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);
}