Select Code to Download

my @data = qw( 1 2 3 4 5); 
...
            $MW->after($MILLISECOND_DELAY,  [ \&modo, $newdata ] ); 
        } 
}

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