use File::Find;
@ARGV = 'c:\temp';
$filesize=-1;
$filename='';

find(\&test, @ARGV);

# to get the biggest file size in a directory
sub test {
    if (-f && -s _ > $filesize)
    {    
        $filesize = -s _;
        $filename = $File::Find::name;
    }
    
}

print "\nBiggest file";
print "\n============";
print "\n$filename in @ARGV is $filesize bytes long.\n\n\n";

find(\&test1, @ARGV);

# to get the Modify Date and Time in a directory
print "\nModify Date";
print "\n============\n";
my ($mtime, $fname);
sub test1 {

    $mtime = (stat(_))[9];
    $fname = $File::Find::name;
    print "$fname " . scalar(localtime($mtime)) . "\n";
}
[download]

To expand on gaal's suggestion you might want to see Re: pause/wait command?

/J\

You mentioned linux, but somebody might read this and need a solution for Win32.
I thought that Linux was a solution for Win32.

</smartbutt>

--
tbone1, YAPS (Yet Another Perl Schlub)
And remember, if he succeeds, so what.
- Chick McGee

Ahhh, but is it? In other words, have you tried your idea? I have, and it worked just fine for my needs.

Update: There's also a solution on CPAN, though it's somewhat hidden. Log::Log4perl::Config::Watch is basically a file watcher. (Maybe we can get the author to re-release this one module as File::Watcher or something ... )