Select Code to Download

#!/usr/bin/perl
print "Content-type: text/html\n\n";
...
        print "Values for next array with key{'32000012'} is = $STUDQT
+{'32000012'}[1]['02'] <br>\n";
        print "--------------------------------<br><br>\n\n";
}