Select Code to Download

my $fname = 'data.txt';

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

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

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