package Gary::Yang;
sub parse {
   my( $in ) = @_;
   my @junk;
   while(my $line = <$in> ){
        push @junk, [ split ':', $line, 2 ];
   }
   return @junk;
}