########################################################################
sub queue_incoming {
    
    	# Now that we've found our next sequential file
        # number/name, we'll write the full content of
        # one retrieved email to it.  (Again, we're using
        # '@$' because this is a reference to an array; this 
        # or similar form is needed to dereference it.)

    open (MAILITEM,">$work_dir_path/$incoming") or die "eek! -- incoming";
    if (defined MAILITEM)
    {
        print MAILITEM "@$an_email";
        close (MAILITEM) or die "eek! can't close Incoming: $incoming";
    }
}