my $fname = 'data.txt';

open FH, "<", $fname
    or die "Couldn't open $fname: $!";

while(FH) {
    print "hello\n";
}

##</code><code>##


while(FH) {
    print "hello\n";
}

##</code><code>##

$greeting = Hello . World;
print $greeting, "\n";           #Prints: HelloWorld