Monitor the disk usage using perl without pakages

[Rajesh Anumula]

se strict;
use warnings;
my $x = <STDIN>;

foreach my $x ( sort glob('$x/*') ) {
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$a time,$mtime,$ctime,$blksize,$blocks)
= stat($x);
printf("%-40s %8u bytes\n", $x, $size);
}

[zmbd]

Rajesh Anumula:
Simple requests for code are not what we're about at Bytes.com
If you have a specific problem - we're happy to help.
If you have tried something already, then post your code; however, please use the [CODE/] format tool to format your script.