Assuming:

/home/perllearner007/WEIGHT_HEIGHT
/home/perllearner007/WEIGHT

Then fill in the blanks:
__intro code __;
chdir ____;
foreach $filename ( glob "*wei*" ) {
     link _____;
     __maybe print out or log a status message __;
}
[download]

Reading Perl's Documentation of Functions by Category and checking what is available for files and directories will surely give you other ideas.