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