Select Code to Download

#!/usr/bin/perl
use Term::ReadKey;
...
ReadMode ('normal'); # restore normal tty settings 
}
__END__

#!/usr/bin/perl
use warnings; 
...
  #  $modem->reset();
} 
__END__