Select Code to Download

package popchar;
use strict;
...
        return($_[0]->{char});
}
1;

#!/usr/bin/perl -w

...
while(1) { 
        print "\rLoading ".$pch->pc();
}