temp.pl 


print "What is the temperature outside? ";
chop($temp = );
if ($temp>75) {
print "too hot \n";
} elsif ($temp<68) {
print "too cold \n";
} else {
print "just right! \n";
}

repeat.pl 


print "type a string: ";
$s = ;
print "type a number: ";
chop($n=);
print "$s" x $n;

42.pl 


$a=0;
$b=0;
format STDOUT_TOP =
Numbers  Squares
=======  =======
.
while ($a<=32) {
write;
format STDOUT =
@<<<<<   @<<<<<<
$a       $b
.
$a += 1;
$b = $a**2;
}