Select Code to Download

sub return_mode { 
    my $mode = shift; 
...
    return join('', @modelist); 
}

sub return_mode {
  sprintf "%04o", (shift) & 07777;
}