$a=<>;       #reads one line in from the keyboard including
             #the newline character (\n) and puts it into $a
$b=<STDIN>;  #does the same thing only puts it into $b;

while(<>){        #reads lines until end of file or a Control-D from the keyboard
   print "$_";    #prints lines back out
}

##</code><code>##

print "Hello World\n";    #the simplest sort of print
print "Hello ","World\n"; #this prints the same thing but uses a list of strings to do the same thing
print ("1+1=",(1+1));     #prints 1+1=2 first prints the string 1+1= and then what 1+1 evaluates to(2);

##</code><code>##

<BR>
printf "%3d %7.2f %5s\n",$a,$b,$c;