Select Code to Download

foreach (@unseen) {

...
printf ("%-10s\t\t%-10s\n",$seen[$i],$unseen[$i]);
$i--;
}

print "Email folder: $EMAIL_FLDR\n";
print "Spam:\t\tHam:\n";
...

Spam:           Ham:
./50257_S               ./36967_X
...
                ./90737_X
                ./51698_X