Select Code to Download

#!/usr/bin/perl
# +-------------------------------------------------------------------
++
...
sub healthbar {
print "<", $player_health, ">hp";
}