############################################################################## # PrintEntry() # sub PrintEntry { if(($flag == 1) && (!IsEmpty($label)) { # print "NUMBER: "; print $label; print "\n"; print "AUTHOR: "; print $author; print "\n"; print "TITLE: "; print $title; print "\n"; print "YEAR: "; print $year; print "\n"; print "\n"; }; }