Select Code to Download

use File::Find;
use HTML::Parser;  # this code doesn't make use of the module, but I r
+eally think you should use it in your code =)
...
sub html_files {
      push @data, $File::Find::name if /\.s?html?$/;
}

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'