#!/usr/bin/perl -w
use strict;

my (@output, $dir);

print "What dir? ";
chomp($dir = <STDIN>);
@output = `du -h $dir`;

foreach (@output) {
	while (/[0-9][0-9].*?M\s/) {
	print;
	last;
	}
}