in reply to You've got mail!

I like that. Just one nit-pick: why not supply "reasonable defaults" for the @ARGV values? (So you don't have to remember/retype all that stuff every time you run it.)

And of course, since you have it working now, you might as well comment out the print "Sleep for $ARGV[3]\n" -- that output gets tiresome, doesn't it?

update: Also, since you are printing reports to STDOUT about errors and incoming mail, it might be useful to include a time-stamp with each print-out: 

  print "New incoming mail detected at ", scalar(localtime), "\n";

[download]

Replies are listed 'Best First'.
Re^2: You've got mail!
by naChoZ (Curate) on Jul 27, 2004 at 01:20 UTC

    Getopt::Long provides a handy method of doing default options. 

    use Getop::Long;
my %opt = ( defaults => are, set => here ); 

GetOptions( \%opt, defaults, overriden, here );

    [download]

    --
    "A long habit of not thinking a thing wrong, gives it a superficial appearance of being right." -- Thomas Paine
    naChoZ

[reply]
[d/l]

In Section Cool Uses for Perl