Select Code to Download

sub nmap_scan_dialog {
    $tabcount++;
    $mytab="nmap$tabcount";
...
    -foreground => 'black', -command => sub { &nmap_scan() } )->pack(
    -side => 'right', -pady => 2, -anchor => 'w');
}