Select Code to Download

#!/usr/bin/perl
use strict;
...

__END__

#!/usr/bin/perl
use strict;
...
}

__END__

$ perl 651544-2.pl
_13204: Morton Heilig
_333301: Theodor Nelson
$

#!/usr/bin/perl
use strict;
...
#   the variable is value of the 'name' key    

__END__