Select Code to Download

use strict;
use warnings;
...
    print $xl->Evaluate("Fmt") . "\n";
    $seln->Select;
}