P:\test>p1
perl> sub prompt { printf "What's your name?: "; }
sub getAnswer{ chomp( $_ =<STDIN> ); return $_; }
sub greetings{ print "Hello $_[ 0 ]. Welcome to functional programming!\n" }
sub main { prompt , greetings getAnswer };;
perl> main;;
What's your name?: BrowserUk
Hello BrowserUk. Welcome to functional programming!