Select Code to Download

use Text::ParseWords;

<DATA>;
...
1371    "Health Politics and Policy"
1371    "Advanced Health Politics?"
1371    "Introduction to Health Policy & Management"

my @keys = qw ( ID Dept Fax);
print ul( map { li("$_: $data{$_}") } @keys);