#!C:\perl\bin$age = $myage = $herage = $hisage = 25;print "\$age = $age\n\n";print "\$myage = $myage\n\n";print "\$herage = $herage\n\n";print "\$hisage = $hisage\n\n";