#!/usr/local/bin/perl sub file_size1 { system("ls -all > myfiles.txt"); open(IN,"; $line=; while ($line=) { my @fields=split(/\s+/,$line); $myfiles{$fields[8]}=$fields[4]; } close(IN); print "File\t Size\n"; while (($file,$info)=each(%myfiles)) { printf "$file \t $info\n"; } } sub file_size2 { open(IN,"ls -all | "); my $line=; $line=; while ($line=) { my @fields=split(/\s+/,$line); $myfiles{$fields[8]}=$fields[4]; } close(IN); print "File\t Size\n"; while (($file,$info)=each(%myfiles)) { printf "$file \t $info\n"; } } #file_size1; file_size2;