Select Code to Download

$ a2p 11121118.awk 
#!/usr/bin/perl
...
    $fh = $name;
    open($name,$mode.$name.$pipe) unless $opened{$name}++;
}