#!/usr/bin/perl 
print "Please enter your name\n";
chomp($name = <DATA>);  # read a line from this file 
print "Thank you $name";

__DATA__
aaa
A new line to show the above ends in \n