Select Code to Download

    return if ! defined $lst->curselection;

#!/usr/bin/perl -w
use warnings;
...
    }
    # and then more happens
}