Help for this page

Select Code to Download

Select or download this

  my $id = $sel || (@ids && $ids[0]) || '';
  
...
    $IDText->setSelected ($id);
    return if $dlg->Show (-global) ne 'OK';
}

Select or download this

#!/usr/bin/perl
use strict;
...
    print "$name\n";
}