#!/usr/bin/perl 
$argc = @ARGV;
if ($argc == 0) {
    die "need minimum file size as argument\n";
}
open(FIND,"find . -print |") || die "can't run find: $!\n";
@st = ();

FILE:
    while($fn = <FIND>) {
	chop $fn;
	next FILE if -d $fn;
	@st = stat($fn);
	if ($ARGV[0] < $st[7] ) {
	    print $st[7]/1048576,"M\t$fn\n";
	}
    }
close(FIND);