Select Code to Download

#!/usr/bin/perl

...
    die("cannot open $first");
  }
}

#! perl -slw
use strict;
...

    print { $fhs{$first} } $rest;
}