#!/usr/bin/perl print "Hello\n"; my $input = <>; print "You said: $input\n";