Select Code to Download

#!perl
use strict;
...
#disconnect from the Modem
$modem->disconnect();
print "\nDONE\n";