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