--- original.pl 2008-05-23 14:10:40.000000000 +0800
+++ mark_as_read.pl     2008-05-23 14:11:51.000000000 +0800
@@ -63,7 +63,7 @@
                                 $folder_name =~ s/^\.//;
                                 $imap->create($folder_name)
                                         or warn "unable to create $folder_name: $@\n";
-                                unless($imap->append_string($folder_name, $msg)) {
+                                unless($imap->append_string($folder_name, $msg, '\Seen')) {
                                         warn "Couldn't append " . $msg->header->{subject} . " to $folder_name: $@\n";
                                         warn "Skipping\n";
                                         next;