Select Code to Download

#!/usr/bin/perl 
use warnings;
...


MainLoop;

sub calculateInstruction{
  my $instruction;
...
#    $port->write($instruction);
#    $port->lookclear();    
}

sub calculateInstruction{
  my $n = $ENABLE{'nothing'};
...
#    $port->lookclear();    
}