Ich nehme an, das geht so bei Net::IMAP::Simple:
Mit get() die Message aus der IMAP-Inbox holen
Diese Message mit put() in IMAP-Ordner Sent verschieben
Die Message in der IMAP-Inbox als \Deleted markieren