Select Code to Download

sub testf {
    my $object = shift;
...
                  ]};

testf($object);

Student Name Asname
Class:        Aclass
...
Class:        Cclass
Enrolled Date: 10/10/66
Class id.:    Perl