..........
    $imap->select( $folder ) or die "Couldn't select folder: $@\n";

} elsif ( $opt_d ) {

    my $filename = $opt_o ? $opt_o : "/tmp/imapdump.txt";
..........

##</code><code>##

..........
    $imap->select( $folder ) or die "Couldn't select folder: $@\n";

} 

if ( $opt_d ) {

    my $filename = $opt_o ? $opt_o : "/tmp/imapdump.txt";
..........