Select Code to Download

#!/usr/bin/perl
use strict;
...
  print $Folder->Items->Item($i)->Subject . "\n";
  
}