Select Code to Download

my $COM_PORT = "com1";
open DEV,"+<", "$COM_PORT" or die "failed to open com port\n";
print DEV "\n";
$input = <DEV>;

use IO::Select;
use IO::Handle;
...
close ($Serial);

print "Finished... \n";