Select Code to Download

#!/usr/bin/perl -w
use strict;

...
        push @{$outer{$line[0]}}, join ' ', @line[1 .. $#line];
    }
}

#!/usr/bin/perl -w
use strict;

...
        $handler{$1}->(split /\s+/);
    }
}