#!/usr/bin/perl

#
#Author: Yury Sibirski
#Name: users_home_dir
#Date: 16 December 2014
#Purpose: This program analyze the directory structure of a Linux disk and identify any files larger than 500 kbytes
#
use File::Find;
use strict;
use warnings;
my $path = shift || '.';
find($path);

find( sub {
    return unless -r && -f;
    my $size = -s;
    print "$File::Find::name $size\n" if $size > 51200;
  }, $path );