Select Code to Download

#!/usr/bin/perl -w
use strict;
...
0,220,BLACKBOARD
1,300,CHALK
====

$VAR1 = {
          'SET1' => [
...
                    ]
        };