Select Code to Download

map {print; smtp->datasend($_)} reverse splice(@lines, -25);

Open the file;
Create an IO::Select object that watches fh;
...
    }
    sleep;
}