Select Code to Download

my $Item;
my $Atmt;
...
foreach (in $Inbox->Items) {
   foreach (in $Atmt->Item->Attachments) {

foreach my $Item (in $Inbox->Items) {
   foreach my $Atmt (in $Item->Attachments) {

undef $Atmt;
undef $Item;
undef $ns;

#! perl

...
      }
   }
}