Select Code to Download

$mw->repeat(1000,sub{
            print "@values"."\n";           
             });

share @values;
share $opened_port;

sub opening_port
{
require Win32::SerialPort;
...
}    
}
}