Select Code to Download

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

...
    # Currently written to access a global hash
    return $test_hash{$parts[0]}{$parts[1]}{$parts[2]}{$parts[3]};
}